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Introducción 


Esta colección de veintiún juegos ha sido especialmente escrita para 
el Spectrum. Cada juego es completo en sí mismo, de modo que usted 
puede elegir el que quiera, teclearlo y jugar con él. Hemos intentado 
introducir juegos para todo el mundo y cada uno de ellos incorpora 
una detallada descripción, con lo cual usted sabrá qué es lo que puede 
esperar antes de embarcarse en un juego. Se le da también una oportu- 
nidad de ver en qué consiste el juego, pues al principio de cada capítulo 
se le muestra un ejemplo de las imágenes que verá en la pantalla. Nor- 
malmente, estas imágenes no hacen justicia a muchos juegos que utilizan 
sonido, ni a otros, o estos mismos, que utilizan gráficos en color. 


¿Qué es lo que podemos esperar? 


Realmente es imposible tratar de catalogar los juegos que aparecen 
en este libro, pues no caen en ninguna categoría definida. De los 
veintiún juegos, las dos terceras partes pueden catalogarse como juegos 
en los que hay movimiento de gráficos. Algunos de éstos son variantes 
de los juegos de siempre, por ejemplo, los invasores del Spectrum, el 
frontón arco iris y el trineo. Otros tienen nombres que no nos recuer- 
dan nada, el perro pastor, el salto y el salto del barranco. El ataque 
láser y el supermisil son dos juegos, del tipo de «caze al enemigo», que 
incluyen características especiales que los hace diferentes de aquellos 
con los que usted haya jugado; seguro que apreciará la diferencia. La 
captura del alfil es un juego de tablero en el que usted juega contra el 
computador y en este juego se utilizan de una forma sorprendente los 
gráficos y el sonido. El dado del Spectrum, así como el revoltigrama, 
utilizan gráficos, sonido y color. En realidad, sólo hay un programa 
que no utilice los gráficos, el de charla con el Spectrum, que es un 
programa que permite que su Spectrum mantenga una conversación 
con usted. Si piensa que es una broma, compruébelo por sí mismo. 
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Mejore su programación 


Además de facilitarle programas con los que pasar horas de diver- 
sión, hemos tratado de proporcionar a todos los propietarios del 
Spectrum un libro que tenga más de un objetivo. Usted puede utilizar- 
lo sencillamente como una biblioteca de programas de juegos excitan- 
tes O tratar de conocer, mediante él, otras características de la progra- 
mación de su Spectrum. Cada programa va acompañado de un bosque- 
jo de la estructura de subrutinas, detalles de técnicas especiales de 
programación, y sugerencias para mejoras adicionales. Estas secciones 
van dirigidas a aquellos que desean desarrollar sus propias técnicas de 
programación. 


Indicaciones sobre los listados 


Esta sección es completamente diferente a la del autor, pues en la 
traducción se ha empleado, en lugar de una impresora ZX, una GP-505 
(SEIKOSHA) de DIRAC, S. L.*, que nos permitía reproducir directa- 
mente los programas que ya habían sido verificados en el computador, 
y además nos permitía dejar los márgenes y separar las rutinas de igual 
modo al que utilizaban los autores. Así pues, usted puede introducir 
los listados tal y como aparecen en el libro, pero, si quiere, puede 
suprimir los espacios en blanco que se han introducido en cada línea, 
para conseguir los márgenes adecuados. Por ejemplo, la línea 1635 del 
capítulo 4 aparece en la forma siguiente: 


1635 PRINT AT y+1,xE;*.”; 
AT y +HlaL; “AT yxL; “ ” 


Para conseguir esta disposición, se han introducido cierto número de 
espacios en blanco (tecla SPACE) entre el último punto y coma de la 
primera fila y la primera palabra AT de la segunda fila. Si usted 
quiere, al introducir estos programas, puede prescindir de estos espa- 
ciamientos, pues el programa funcionará exactamente igual, en cuyo caso 
el aspecto de la línea 1635 sería : 


1635 PRINT AT y+1xL;*.”; AT y+1, 
Es cc des AT YvAXAL: 6 >> 


* Agradecemos a DIRAC, S. L. su colaboración desinteresada. 
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Tal y como aparecen los programas, los juegos funcionarán tanto si 
usted conserva estos espaciamientos como si no lo hace. Pero si decide 
no conservarlos, puede prescindir también de los símbolos que se han 
utilizado para presentar así los programas. Por ejemplo, las líneas 550, 
9010 y 9020 (también del capítulo 4) pueden escribirse en la forma 
siguiente: 


55M LET e$=>” 
”: REM 2/ espacios 


9010 PRINT INK 0; AT 20,1; “bien h 
echo, ¡¡salvo la tierra!!”; 


902% INPUT “¿jugamos otra vez? (s 
n)”; z5 


Los caracteres que deben introducirse en modalidad gráfica apare- 
cen entre corchetes, de modo que si ha de teclear la letra “a” en 
modalidad gráfica, en los listados del programa encontrará [a]. A 
veces, para conseguir los caracteres gráficos deseados, tendrá que 
pulsar la tecla CAPS SHIFT una vez que haya pasado a la modalidad 
gráfica (nos referimos a los caracteres que se obtienen mediante las 
teclas numéricas). Siempre que haya de emplear la tecla CAPS SHIFT, 
en modalidad gráfica, aparecerá el símbolo =— delante del número de la 
tecla. Por ejemplo [1] indica que ha de pasar a la modalidad gráfica 
y pulsar la tecla 1 mientras que mantiene pulsada la tecla CAPS 
SHIFT. Cada programa va acompañado de una sección de *Indicacio- 
nes sobre el listado”, de modo que estas advertencias aparecerán de vez 
en cuando. 

El autor utilizaba la mayúscula L, como nombre de variable, para 
evitar la confusión entre la letra minúscula “1” y el número *1” que en la 
impresora que él utilizó no eran distinguibles. Al ir preparando la 
versión española, se empezaron a introducir así los programas, pues 
aun no se había decidido qué impresora se iba a utilizar, y aunque en 
la impresora que hemos utilizado no hay confusión posible entre el 
número “1? y la letra 1, hemos decidido dejar los listados tal y espacio 
como están para evitar los errores que podrían deslizarse al ir corri- 
giendo línea a línea los programas. Sin embargo, cuando usted teclee 
los programas, no tiene por qué utilizar la “L” mayúscula como nombre 
de variable. 


10 Spectrum Libro de Juegos 
Programas perfectos 


Es bien sabido que no hay nada como el último error en un 
programa. No importa el cuidado que hayamos puesto; nunca podre- 
mos garantizar que los veintiún programas estén absolutamente perfec- 
tos. Cuando introduzca un programa, parecerá que los errores apare- 
cen por sí solos. Si el programa que ha tecleado no funciona, compáre- 
lo cuidadosamente con el listado, y si aún no funciona, tómese un café 
y vuelva a comprobarlo. Es muy fácil leer lo que uno cree que hay 
escrito en lugar de lo que verdaderamente hay. Puntos en los que hay 
que poner particular atención son las cadenas nulas y las filas de 
espacios en blanco. ¿Ha tecleado el número correcto de espacios en 
blanco? Para ayudarle hemos incluido sentencias REM que le indican 
el número necesario de espacios cuando es difícil calcularlo a ojo. Otra 
posible fuente de errores son los signos de menor que y de mayor que; si 
se equivoca al teclearlos, puede llegar a resultados caóticos. Cuando 
teclee los programas no se deje llevar por la tentación de cambiar los 
números de línea; es demasiado peligroso. 


Cassettes 


Muchos de los programas de este libro son bastante largos. Esto es 
inevitable, pues los juegos que se presentan incluyen gran cantidad de 
características especiales. Es tedioso teclear programas muy largos y, 
para evitarle esta tarea, existen cassettes grabadas con estos programas. 
(Para más detalles y para peticiones de cassettes envíe un sobre con su 
dirección y con el franqueo necesario a: RAMSOFT, P.O. Box 6, 
Richmond, North Yorkshire, DL 10 4HL.) 


Salto No. 3 


Este juego es una comprobación real de su tiempo de reacción y de 
su destreza, y es casi obligado jugarlo. Aparece una valla roja brillante, 
de altura variable, con la figurita de un hombre junto a ella. En la 
parte izquierda de la pantalla parpadea una cuenta atrás “Preparados, 
Listos, YA”. Cuando aparezca la palabra “YA”, el hombre tendrá que 
saltar tan alto como pueda y después ir trepando, lo que reste, para 
alcanzar la cima de la valla. En este juego su éxito depende totalmente 
de la agilidad y destreza de sus dedos. 


Reglas del juego 


Para conseguir que el hombre salte, pulse cualquier tecla cuando 
aparezca la palabra “YA”, pero no antes. La altura del salto inicial 
depende plenamente del intervalo entre la aparición de la señal y el 
momento en que usted pulse una tecla. Cuanto antes reaccione, más 
arriba saltará. En la pantalla aparece el tiempo que le queda para 
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escalar la valla y, mientras estos cinco segundos se consumen, deberá 
continuar pulsando cualquier tecla para conseguir que el hombre pase 
la valla. Por cada diez pulsaciones de tecla, el hombre subirá un 
ladrillo más; de modo que, cuanto más rápidamente pulse, más veloz- 
mente subirá. Si mantiene pulsada una tecla, escuchará un sonido 
agudo debido a que sólo se cuentan las pulsaciones completas; esto es, 
pulsar y soltar una tecla. Si, dentro del tiempo límite, el hombre no 
alcanza el tope, se deslizará hacia abajo y se le dará otra oportunidad. 
Siempre se dispone de diez intentos. Aunque quede muy por debajo del 
tope, pulse alguna tecla; hasta que no lo haga, no podrá pasar al 
intento siguiente. Si pulsa una tecla inmediatamente antes de que 
aparezca la señal “YA”, el computador le acusará de tramposo y 
perderá esta oportunidad. 


Indicaciones sobre el listado 


En este juego se utiliza la letra “1? como un nombre de variable. Por 
el motivo que ya indicábamos en la introducción, hemos utilizado la 
mayúscula “L” en vez de la minúscula 7 en el listado. Quizás encuentre 
más fácil teclearlo como una minúscula, igual que el resto de las 
variables. Las letras “a” y “b”, entre corchetes, representan los caracteres 
definidos por el usuario y deberá teclearlas en modalidad gráfica, pero 
sin teclear los corchetes. 


Estructura de subrutinas 


29 Bucle del juego 
1000 Cuenta atrás 
1500 Rutina para tramposos 
2000 Imprime la valla 
2060 Lógica para el salto 
2500 Deslizamiento por la valla 
2600 Imprime al hombre sobre la valla 
7000 Pone el reloj en cero 
T100 Obtiene el tiempo 
8000 Establece el juego y define los caracteres del hombre y del 
ladrillo 
9000 Mensajes Exito/Fracaso 
9600 Fin del juego 


Detailes de programación 


Esta es una aplicación bastante sencilla de la dinámica de gráficos 
de baja resolución, y su interés principal de programación, reside en la 
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forma en que se utiliza el reloj interno del Spectrum como un controla- 
dor de la reacción y como un dispositivo de cuenta atrás. La rutina 
7000 pone el reloj en cero y la rutina 7100 lo va leyendo. Podría 
utilizar estas rutinas en sus propios programas. Otro punto interesante 
a observar es cómo se utiliza POKE, en ciertas posiciones de memo- 
ria, para suprimir la característica repetitiva del teclado (en las líneas 
8130-8140). La característica repetitiva de las teclas se restablece en la 
rutina de fin del juego (líneas 9650-9660). 


Programa 


10 REM Comando salto 


I ue AT ás 0; FLASH 1; 
7 rado"; FLASH 0%"; 


R 2 TO RND+200+200 
“AT 20, 07 FLASH 
TO ANDI200+200 


H4Un 


UA ZN :0Z2 11 -U 
Em P 


E 
*m : 


r 
na «0 
Gr E 
G 


Re mp 
coca 


Pi) 
co 06 


LET salto=1 


UI 


6 O60a0a 
0-2 GORnro 


GO GOD 
ZUuan 
aa 
H 
Z 
pas 
DD 
Y 


ON 


xT_i 
de Ar. 
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2068 PRINT AT 20,18; 
“Salto No. ¿salto 
2070 PRINT AT is,18, INK 0;"C[b]" 
2100 60 SUB 1 
2110 FOR _1=18 TO 18-h+INT (115) 
2120 PRINT AT 1,18; INK 9; " 
2130 PRINT AT i-1,18; 
INK 0;" Ub 
2140 BEEP .01,20-i 
2150 NEXT i 
2160 LET jmi: LET L=sINT i 
2170 60 sÚB 710 
2178 1F t>S THEN GO TO 2500. 
2160 PRINT HT 3,20; Tiempo” 
AT 10,19; “resta nte" 
PRINT'AT 12,28; 
INT (iS-ti$10)/10;" ' 
2190 IF INKEY$="" THÉN 
co To 
2200 PRINT Ar INT L,18; 
INF 0," 
2210 LET AB. 2 
2215 CET CsINT j 
2220 PRINT AT L,18; INK 0;"0b]" 
2230 IF L<=17-h THÉN PRINT 
AT 1+1,18;" ": 60 TO 2600 
2340 IF INKÉYS<>"" THEN 
EEEP_.01,5: 60 TO 2340 
2350 GU TO 2170 
25008 FOR i=L_TO 18 
2510 PRINT AT i-1,18; INK 0; " 
2520 PRINT AT 1,18; INK O; TbJ" 
2530 BEER .01,20-1 
2548 NEXT i 
2550 LET saltomsaltos+1l 
3380 PRINT AT 10,19; $“, 
REM 3 espacios 
2570 IF salto<=10 THEN 
_ GO TO 2060 
2580 RETURN 
2600 FOR íi=18 TO 10 STEP -1 
2610 PRINT AT Li+d INK 9; " 
2620 PAINT AT OLji; ÍNK Q;"(b]" 
2630 FOR k=1 TO 10: NEXT k 
2540 ¿ dó 
2650 FOR iaL TO 
2660 PRINT AT ido 10; a," 
5672 PRINT AT ¿10 ER O; "161" 
2675 BEEP .01,20- 
2680 FOR kal TO 10: NEXT k 
2690 NÉXT i 
2700 RETURN 


PORKE 
RETURN 


1002 00 Co 00 0 00 CO 00 09 00 0) CO 0) CU CO 
aaa Lolo o lolo isiol 313 


Oe DIE E uIco Y ERON P GUeO 
0606050065005 0066006560 


4 
Le 
19] 
[a] 


3010 
3020 
23590 
2510 


a 
h 
a 


O CI O 
Ch Ch CH CCA 
meca E 


SuUGOBa 


Salto 


LET t=(PEEK 23672+2550% 

PEEK_ 236731 /S50 

RETURN 

POKE USR_"a",0 

FOR _i=1_T 

PORKE USR "a"+i1,255 

NEXT i 

POKE USR "b"+0,B6IN v0v1100u 
PORKE USR "b"+1,BIN 00011000 
PORKE USR "b"+2,B1N 11111111 
POKE USR "b"+3,BIN 001111009 
POKE USER "b"+4,E5EIN 40111199 
POKE USR "b"+S5,BIN 091V0l1OY 
PORE USR "b"+56,BIN 00u1001Y0 
PORKE USR "b"+?,BIN 00100100 
LET t= 

PÚURE 23561,255 

POKE 23562,255 

RETURN 

1F salto<=10 THEN 

GO0_TU 23500 

PRINT AT 0,10: Usted ", 
FLASH_1; BRIGH ; 
"“1IFRACASO! !* 

GO TO 23600 

PRINT AT 0,10,"Empleo "; 
salto;'" saltos para" 

PRINT AT 1,14; 

"pasar la valla" 


INPUT "Jugamos otra vez”? 
¡3 
LE ia THEN RUN 

? 
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dde o 


H 
po 


= 


mw 


ni 
8 
8 
8 
8 
$ 
3 
5 
4 
$ 
$ 
$ 
3 
8 
RUNANARERRAEBALAR 


nrntrrrararniranarnraaaaaas 


H 
= 
4 
ps 
Z 
H 
á 
E 
- 
pS 
pa 
E 
4 
A 
Le 
E 
z 
H 
E 
É 
4 
E 


Htagranrranarnaanaararanianaaaaaas 


Si alguna vez ha observado cómo un pastor y su perro conseguían 
introducir un rebaño de ovejas en un redil, tendrá que reconocer que 
casi es una proeza asombrosa. Parece como si el pastor experto lo 
hiciera sin esfuerzo, sólo llamando y silbando a su perro, que, obedien- 
temente, se para o se acerca cauteloso a unos pocos pasos o corre 
rodeando el rebaño para recoger algún rezagado. 

Este juego es una simulación extremadamente real. De hecho, es 
tan parecido a la realidad que la única persona que conocemos que 
haya obtenido una puntuación de “Super pastor” fue un ovejero. Apa- 
recen cinco ovejas lanudas blancas y un perro negro en un campo 
verde rodeado por una cerca de estacas; así, se crea una atmósfera 
campestre. 


Reglas del juego 


El objetivo del juego es: encerrar las cinco ovejas en el redil que 
aparece arriba, en el lado derecho del corral interior, con el menor 
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número de movimientos. Para conseguirlo tendrá que controlar al 
perro mediante las teclas de flechas (teclas 5, 6, 7 y 8). Las ovejas se 
dispersarán si el perro se aproxima demasiado. También se dispersan 
aleatoriamente a lo largo del juego, sólo para complicarlo un poco. 
Normalmente no se permite que el perro ni las ovejas crucen las vallas, 
si bien cuando éstas se dispersan puede que salten fuera del redil. 
Siempre hay un total de cinco ovejas, pero si se apiñan mucho puede 
que se pongan unas encima de otras. 

Tras jugar algunas veces, observará que algunas estrategias funcio- 
nan mejor que otras. Los principiantes tienden a desperdiciar movi- 
mientos tratando de llevar al perro rodeando la parte de atrás del 
rebaño. Sin embargo, para alcanzar el título de “Super pastor” o “Buen 
perro” tendrá que economizar movimientos. 


Indicaciones sobre el listado 


Siempre que vea un carácter dentro de unos corchetes, recuerde que 
esto indica que ha de utilizar la modalidad gráfica. En este programa 
encontrará [s] en las líneas 1040 y 7350, y [d] en las líneas 1130 y 1660. 
El carácter utilizado en la subrutina 80/, para imprimir la cerca, se 
obtiene pulsando la tecla 3 cuando la tecla SYMBOL SHIFT esté 
pulsada. La única característica de impresión, adicional, es el espacio 
en blanco encerrado entre comillas en las líneas 1610 y 7300. Puede 
que le sorprenda la utilización de “+” en las líneas 500 y 600. 
Realmente es un adorno innecesario de la sentencia POKE USR y sólo 
se ha incluido para facilitar la identificación de las formas de los 
gráficos definidos por el usuario. Puede que, por la misma razón, 
encuentre más sencillo teclear estas líneas tal y como aparecen, pero si 
lo prefiere puede omitir el “+0”. 


Estructura de subrutinas 


SOY Define el carácter gráfico para las ovejas 
600 Define el carácter gráfico para el perro 
700 Inicializa los agrupamientos 
800 Imprime la cerca 
1000 Imprime las ovejas 
1100 Imprime el perro 
1500 Mueve al perro 
1700 Mueve las ovejas y comprueba si el juego ha terminado 
7000 Lógica del movimiento de las ovejas 
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7300 Imprime las ovejas 

8000 Dispersa las ovejas 

9000 Imprime mensajes al final del juego y ofrece la oportunidad de 
jugar otra vez 


Detalles de programación 


Las líneas 7080 y 7100 comprueban si el perro se ha acercado 
demasiado a las ovejas. Si así es, o si el número aleatorio generado es 
menor que ./1 (la posibilidad de que ourra es de un uno por ciento), 
entonces las ovejas se dispersarán siguiendo las ecuaciones de las líneas 
8050 y 8070. Fíjese en la utilización de la sentencia ATTR (atributo) 
en las líneas 1620 y 1650. Se emplea para asegurar que el perro no 
penetre en las cercas. En las líneas 7170 y 7175 se utilizan sentencias 
similares para asegurar que la oveja no avanza hacia el perro ni 
penetra en las cercas. 


Mejoras posibles 


Si llega a ser un experto en este juego, puede tratar de hacerlo más 
difícil. Cabe aumentar la posibilidad de dispersión al azar de las ovejas 
alterando el punto de comparación del valor aleatorio en la línea 7080, 
o puede añadir obstáculos tales como una charca o un río que las ovejas 
tengan que evitar o cruzar. Otra sugerencia es modificar el juego y em- 
plear un criterio de “tiempo empleado” utilizando el reloj del Spectrum 
en lugar de contar el número de movimientos realizados. 


Programa 


109 REM Perro pastor 


500 POKE USR "s"+0,BIN 000ABBDA 
510 POKE USR “s'"+1,BIN 00000008 
520 POKE USR "s"+2,BIN 01111010 
530 PÓKE USR "5"+3,BIN 11111111 
540 POKE USR "s'"+4,BIN Ú1111191 
Ss0 POKE USR "sS"+5,6IN U1111009 
550 POKE USAR "s"+6,BIN 01981009 
570 POKE USR “s"+7,BIN U1001000 


Cue Ch Ch Ch dh Ch 
MOE Ly e E 
6606600 


Perro Pastor 


POKE USR '*+0,BIN 00000000 
POKE USR "d"+1,BIN vEaVUVVVa 
POKE USR "d"+2,BIN ve40aa110 
FPOKE USR "d'"+3,B5IN Q1111011 
POKE USR "d"+4,BIN 1111000 
PORKE USR "d"+5,BIN 10000100 
POKE USR "d"+6,BIN 01000010 
POKE USR "d'"+7,6IN 000900000 
DIM yi5S) 

DIM x1(5) 

LET n=y 


Dor 4: INK 4 


E 
FOR x=0 TO 15 
PRINT AT 16,x; INK 0;"8" 
NEXT x Ñ 
FOR 4=9 TO 16 
PRINT AT yY,18; INK 0jve" 


y 

FOR y=0 TU 20 

PRINT_AT y.0; INK 0;"8"; 
1 ke O > 


REM imprimir oveja 

FOR 5$=1 TO S : 

LET yis)=S+INT (RND*10) 
LET x(s)=4+INT (RND+5) 
PRINT AT PAR 

dy! O E e 

NEXT Ss 


REM imprimir pe 

LET 3Ydad=1+INT (RN 

EE xd=1+ INT (RN 
id; a; ,.. (4] v. 


20 
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1600 E HEN 60 TO 1590 
1610 PRINT RAT yd,xd;" " 
1620 d$='"5" AND ATTR 
(yd, ,xd-1) <>32 THEN 
xd=xd-1 
1630 IF d$="3" AND ATTR 
(dd,xd+1)<>32 THEN 
LET xd=xd+1 A 
1640 IF d$="5" AND ATTR 
(Yd+1,xd)<>32 THEN 
LET yd=yd+1 
186509 IF d$=""?" AND ATTR 
(Yd-1,xd)<>328 THEN 
ET Yd=yYd-1 
1660 PRINT AT yd,xd; INK 8U;" ([(d]" 
1670 LET m=m+1 
1680 FRINT INK 0;,ART 10,17; 
'Movimiento *"; 
1700 GD 3UB 70009 
1320 IF f=0 THEN GU TO 3000 
1350 60 TO 15080 


5010 LET Feo 


FOOD LET Y=yís): LET x=x(53) 
7030 IF (ABS (x (35) -xd) <2 AND 
RES (y (Ss) -udi<2) OR 
_ (RND<.01) THEN GO SUE 5040 
¿100 IF ABS (xXx (5) -xd)>2+1NT 
(RND*2) OR HABS NOD E 
INT (RND*21 THEN GO TO 7175 
7150 LET x(51=2xXx(38)+536N- (x 18] -=-xd) 
7160 LET 4is)=34 (5) +56N- (Y (5) -Yd) 
7170 IF ATTR (Y (3),x1(3)1:=39 THEN 
GO TO 7156 
7175 1F ATTR (Y (5),x158))=32 THEN 
LET x1g)=x: LET y(51=y1(5)+1 
7130 IF x13)<1 THEN LET_ x(5)=1 
7130 Xx15)>14d THEN LET x1(51=14 
7260 1F Y(is):<1 THEN LET Yy(s1=1 
7270 1F Y(3)14 THEN LET yu(s)=14 
7300 PRINT AT Y,x; INK 4" " 
7350 PRINT AT Y (SI1,x (5), 
TNK 25 7 ESJ* 
7380 IF x ($) >12 AND (uis)1=1 
OR yis)122 OR y (5)=3) THEN 
Go To 7400 
¿370 LET F=1 
7400 NEXT s 
7500 RETURN 
3000 REM dispersion Je ovejas 
35050 LET x15)=x1(8)+(136N 
(RND-.5))(2+1INT” (RND42)3)3) 
23070 LET 41s)=u (5) +(C13GN 
(BRND-.5))*(2+1NT” (RND*2))) 
3106 RETURN 
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PRINT AT 18,2; 


Ir mid THEN PRINT INK 0, 
"liSuper pastor!!": 

GO T 

IF m<x60 THEN als INK 0; 
"+!Buen perro! 

50 TO 3050 

1F m<90 THEN PRINT INK 0, 
“Continue practicando": 


IF m<x120 THEN PRINT INK 0, 
“Mas suerte la proxima vez" 


lliPresente la dimision!!'" 
PRINT AT 20,2; INK 0, 
'Ha necesitado “mM 
movimientos"; 
INPUT "?Jugamos otra vez"; 
Co iséni? "¡as 
1IF a$ili="s" THEN RUN 
PAPER 7: INK Y 
STOP 


3 
La Isla del Tesoro 


X MARCA EL LUGAR 


La finalidad es encontrar el tesoro escondido antes de que el barco 
de los piratas llegue a la isla. Este juego tiene todos los ingredientes de 
la gran aventura. Una isla desierta poblada por nativos, unos hostiles y 
otros amistosos, un tesoro enterrado en el lugar marcado con una “X” 
en el mapa, arenas movedizas que representan un peligro para el 
buscador de tesoros desafortunado y, finalmente, el loro de John 
Silver. El juego se presenta en gráficos de color y también con efectos 
sonoros. 


Reglas del juego 


El tesoro está enterrado en un lugar, marcado con una X en el 
mapa, que al principio del juego aparece brevemente parpadeando en 
la pantalla. También se indica el camino que usted tendrá que seguir 
con precisión. Si se extravía, le pueden pasar tres cosas: si tiene suerte, 
el loro de John Silver le volverá a guiar hacia el camino (verá al loro 
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sobre la dirección del camino hacia la que ha de ir). Si no tiene suerte, se 
encontrará con los nativos hostiles y retrocederá inmediatamente tres 
posiciones con respecto al lugar del camino en que lo dejó, y si es aún 
más desafortunado, caerá en las arenas movedizas. Puede que ésta sea 
su suerte final, o puede que un nativo amistoso lo saque. Si para seguir 
el camino necesita consultar el mapa, pulse la tecla “h” y verá el mapa 
que, ahora, muestra además la situación de las arenas movedizas 
durante un tiempo breve, cuya longitud es aleatoria. Sin embargo, cada 
vez que consulte el mapa, el barco pirata se acercará más y más, y si el 
barco llega antes de que usted encuentre el tesoro, los piratas le 
capturarán. En cualquier caso, el barco hace un movimiento por cada 
cinco que usted haga, así que habrá de tener cuidado. Para moverse 
por el camino utilice las teclas con flechas hacia la izquierda, derecha 
y abajo; usted no puede mover hacia atrás. 


Indicaciones sobre el listado 


Siguiendo nuestras reglas, los caracteres que aparecen entre corche- 
tes han de ser introducidos en modalidad gráfica, y cuando además de 
estar entre corchetes aparezcan precedidos por el símbolo =, por 
ejemplo el [—3] de la línea 314N, entonces tendrá que introducirlos en 
modalidad gráfica con la tecla CAPS SHIFT pulsada. Observe que en 
la línea 341f aparece “X” entre comillas. Introdúzcala sencillamente, 
como la mayúscula “X”. 


Estructura de subrutinas 


100 Define el carácter gráfico para el loro 
200 Define el carácter gráfico para los nativos 
300 Define el carácter gráfico para la vela del barco 
400 Define el carácter gráfico para el casco del barco 
500 Define el carácter gráfico para las arenas movedizas 
600 Define el carácter gráfico para el hombre 
81 Inicializa las variables y los agrupamientos 

1050 Bucle principal del juego 

1410 Lógica para el ataque de los nativos 

2000 Lógica para la ayuda del loro 

3000 Imprime el mapa 

3500 Mueve al hombre 

3600 Imprime la arena movediza en el mapa 

4000 Lógica para la arena movediza 
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500 Construye la isla 

5500 Construye el camino 

5650 Coloca el tesoro 

5700 Construye las arenas movedizas 
6000 Mueve e imprime el barco pirata 
7000 Imprime la isla 

8000 Rutina de ayuda 

900 Rutina de hallazgo del tesoro 
999) Fin del juego 


Detalles de programación 


Este es un programa muy largo con muchos ingredientes distintos. 
Por tanto, puede que parezca más bien complicado cuando, en reali- 
dad, es bastante sencillo. Una técnica a observar es la forma de 
construir la isla al azar, mediante la subrutina 5000. Se utiliza SGN 
para desarrollar al azar el contorno de la isla y después establecerlo, 
obteniendo así esa forma que se parece a una isla. 


Alteraciones posibles 


Si desea alterar la longitud del tiempo durante el que el mapa 
aparece en la pantalla, puede hacerlo variando la longitud del PAUSE 
de la línea 8020. Actualmente, está en 5/ cincuentavos de segundo más 
un término aleatorio. Puede decidir durante cuántos cincuentavos de 
segundo quiere ver el mapa y sustituir este valor por el 50. También 
puede alterar la longitud de los movimientos del barco pirata, colocando 
en la línea 6030 un valor diferente para “r”. En este programa se ha 
determinado que sea un valor aleatorio entre el ( y el 2. 


Programa 


108 REM La isla del tesoro 
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REM_nativo 


PORKE USR "n"+0,BIN yuevo0ev1 
PÚURE USR "n"+1,BIN 90011001 
PORE USR "n"+2,BIN 11011001 
PORE USER "n"+3,BIN 11111111 
PORKE USE '"n"+4,B6IN 110110091 
PORE USR "n'"+5,BIN 00011001 
PORE USR "n'"+6,6IN 00100191 
PORE USE "n'"+7,B6IN 9100101 
REM vela del barco 
FORE USR "y" "+0,BIN 11111111 
PORKE USR "y" +1,BIN e1111110 
PORKE USE "u"+2,BIN 10100101 
POKE USR "y" "+3,B6IN 11000011 
PÚRE USR "y"+4,BIN 11000011 
PORE USR "¿4"+5,BIN 10100101 
PORE USR ""+5,BIN v111111u 
PORE USR "¿'"+?,BIN 121111111 
REM_barco 
FOKRÉ USR "s5"+0,5IN 090100909 
POKE USR "s'"+1,6IN 11111111 
PORE USR “s"+2,BIN 11111111 
PORKE USR "s"+3,6I1IN 01111110 
POKE USER '"s'"+4,BI1IN 01111118 
FOKE USE “s'"+5,BIN 011111183 
DORE USR "5" "+8,BIN ge4li11100 
FOKRE USER "s"+7,61N 601111008 
REM_areñna movediza 
PORKE USE "23"+0,BIN 00001190 
POKE USR "93"+1,561N vedlllgu 
PORKE USR "q"+2,BIN 044111119 
POKE USR "3"+3,B1IN 01111111 
POKE USE "q"+4.B1N 11111111 
PORE USER "9"+5,B61N 111111109 
FOKE SR "q"+6,61IN 61111108 
POKE USB "9"+7,BIN 00111000 
REM homere 
PORKE USR "m'"+0,6IN 00011009 
PORE USR '"m'"+1,61N 0900119009 
FOKE USAR "m"+2,51N 01111110 
POFKE USE '"m"+S3,BIN 000110900 
FOKRE US mM +9, ,56IN 901111009 
POKE USE "m"+5S,BIN 011001109 
POKE USE '"m' "+5,B1N 011004119 
POKE USR "m'"+7?,B6IN 0000009009 
LET f= 
LET XS=1: LET ys=1 
LET mez= 
CIM vila) 
CIM U(1D) 
DIM Lia) 
DIM riecul 


DIM x 120) 
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1058 60 S5UB $000 
1059 LET xMm=x (141) 


E + 
1109 60 sUB_3000 


1110 PAUSE SO+RND*20 
1150 60 SUB El 
1200 GO SUB5 70 
1210 60 SUBS 380 
1270 IF xm=xt AND ym=yt THEN 
GO TO 2900 
12380 LET f=f+1 
1230 IF INT (Fr5)1=F/S THEN 
GO SUB 5000 
1300 IF x(Ymi=xm HNC 
INF. (145) =f/S THEN 
GO TO 1150 
1310 IF x(ymi=xm THEN 50 TO 1218 
1330 REM fuera del camino 
1340 BEEP .3,-6: GÚÓ SUB 60009 
15350 FGR 3:21 TO 3 
1360 REM comprobacion para arena 


mowediza 
1370 IF v1(9)=xú AND U(Q)=ym THEN 
66 Sub 4000 


NEXT q 
1400 IF RND<=.4 THEN 60 TO 2000 


14109 REM logica Para los nativos 
142 GO SUB 
1430 PRINT AT 13,1; PAPER 3; 

INK D; 


"NATIVOS HOSTILES DELANTE" 
1440 FOR Nz=1 TO 3 
1445 LET r=INT ¿(RNCE3) 
1443 IF ym+5>=b THEN LET r=u 
1450 PRINT AT mer xm; PAPER 3, 
INK 0;”" (nl " 


1470 LET ym=ym-3 

1430 IF ym<z=t+1 THEN LET ym=t+1 

1490 LET xm=x (ym) 

1300 PRINT AT " ia PAPER 3; 
INK 0," [ml " 

19550 LET mes= 

1560 60 TO 1210 


2000 REM logica para el Lloro 
2010 60 SUE 7000 

2020 606 SUB 3570 

2050 PRINT AT_ 19,1; PAPER 3; 
INK 0;"SIGA AL LORO DE"; 
"JOHN SILWER" 

00 LET yu=ym+1 

19 IF_yui>p THEN LET Yj=p 
120 LET Xxj=xiyy) 

130 PRINT E E ii PRPER 3, 
INK 2;' 

40 LET o 

Su Gu TO 1218 
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ar imprime la isla 
APER 0 


7: INK 
els 
FOR x=L(t3 TO rit) 
PRINT AT t,x;"1"31' 
NEXT x 
FOR =1t TO b 
PRINT AT > E 
RAT pos Él 
NEX 
FOR LO -1) TO r iy-1) 
PRINT AT y,x; "131" 


NEXT x 


REM imprime el camino 
FOR u=t+1 TU p 

PRINT AT 3y,x (y); "8" 
NEXT y Ñ 

PRINT AT 20,1: 

"Xx MARCA El LUGAR". 


TURN 
60 TO 3510 


REM movimiento del hombre 
BEEP .1,5 

LET ag ÍNKEYS 

IF a$="" THEN GO TO 3515 
Eos! AT _yn,xm; PAPER 3, 


IF _ a$="h" THEN G0 SUE 50080: 


RETU 

IF IA THEN LET xm=zxm-1l: 
GO TO 3550 

IF 35$="9" THEN LET xm=xm+1: 
SO TÓ 395 [va] Ñ 

IF a3%<>'"6"” THEN 60 TO 3510 
LET Pr 


PRIN aj AR PAPER 3; 
INK 0;" 

IF ea THEN RETURN 

FOR i=0 TO_31 

PRINT. AT 19,i, PAPER 3," " 


NEXT 1 
LET mes=0: RETURN 


REM imprime arena movediza 
FOR 93=1 TO 10 
PRINT AT u(q),v1q); INK 4, 
PAPER 3," [q] 


RETURN 
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4000 REM arena movediza 
4010 60 SUE ?u9u 
4020 PRINT AT QM, ximo; INK 58, 
PAPER 3," (131 
4100 PRINT AT ym+1,xm+1; 
PAPER 3; INK 09; “RARGH" 
4110 FOR i=5 TO -S STEP -1 
4120 BEEP .1l,i 
4159 NEXT_i 
4160 PRINT AT 13,1; INK O; 
PAPER 3; 
"EN LA ARENA MOVEDIZA" 
4170 IF END>.S THEN No INK 0; 
PAPER 3; "Un nativo 
"amistoso lea saca": 
PRUSE 100: RETURN 
4130 60 TO 3990 
5000 REM calcula la isla 
5120 LET L=INT (RND+3) +10 
S130 LET t=INT (RNDF3) +2 
5140 LET w=10+INT (RND*3) 
5150 LET b=INT (RND*2) +17 
5330 FOR Y=1t TO b 
S240 LET L(y)= 
3250 LET r (Y) =L+u 
5340 LET L=L-(SGN (10-3Y)z% 
INT ¡RNDRZ)1 
5350 LET u su + (SGN (10-41 + 
INT —(RNDEFZ)1 
S360 1F Li4)<ld THEN LET Liíy)=1 
5370 IF riy)>30 THEN LET r (y) =30 
5330 NEXT y 
5500 REM logica para el camino 
5510 LET x(t+11=L (141) + 
INT (RNC=4) 
SS520 LET k=t+2 
5550 FOR p=k TO b-1-INT (RND+3) 
55610 LET x1(Rr)=x (p-1) + 
ÍNT (RNCRF3)-1 
S620 IF x1(p)o=rip) THEN 
LET x1ip)=r 1p)-1 
S630 IF xtp)<=Lip3 THEN 
LET x(p)<=L (Pp) +1 
5640 NEXT Pp 
5645 LET p=p-1 
5550 REM tesoro 
5660 LET La te 
5670 LET Yt= 
5700 REM logica para la arena 
movedi1iza 
5r10 FOR q=1 TO 10 
S720 LET d=INT (RNDReIpP-t-2)3)+1+1 
Sr 0 LET -0149)=3d 
S750 LET v(9)=x (d) +S6N (RND-.5S) 
S?7?0 IF viq)<=L id) THEN 
LET viq)a=v(q)eS3 
S7350 IF viq)>=rf id) THEN 
LET viítq)=v(q)-3 
5790 NEXT q 
so304 RETURN 
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REM barco pirata 
INK S: PAPER S 
CcLS 

LET resINT (RND+3) 


LET xS=xs+" 


H 
6d TO Suda 


Lve 3 imprimir 
INK Y 


AMAS 
t-1,x; PAPER 6;" 


CC 


DICaDb> IF: (0 


> +4 
un: 


ma 


Hx DAL” Ax DUNE 
> 


nx qu 
4- 


DO DOCM To w m 


NEXT Xx 


del tesoro 


PAUSE <0 
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390 INPUT "Jugamos otra vez "; 
“1s/n)? "as 

91 1F_a$="5" THEN RUN 

92 PAPER 7 
INK Q 

3994 CLS 


4 
invasores del Spectrum 


5060806000505 
RRRRRRAAAR 
6 08600908 
RRB 228282828 


Dos tipos de navíos alienígenas se dirigen hacia la Tierra y usted ha 
de defender la civilización que conocemos. Su tarea es amedrentadora, 
ha de asegurarse de que ningún alienígena llegue a una distancia desde 
la que pueda alcanzar a la Tierra. Esta distancia límite está marcada 
con una “x” a la izquierda de la pantalla. Cuando alguno de los navíos 
atacantes pase de este punto, el juego finaliza y usted habrá perdido. 
Sú única esperanza es destruir a los alienígenas con los misiles. Cada 
misil que alcance el objetivo aumenta sus posibilidades de salvar la 
Tierra. 

Este juego es especialmente excitante por la forma en que aumenta 
la velocidad de los invasores según se acercan, y porque utiliza dos 
tonos de pulsaciones sonoras. Si lo juega en una TV de color, verá que 
los navíos son rojos y amarillos. 
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Reglas del juego 


El lanzador de misiles puede moverlo a la izquierda y a la derecha 
utilizando las teclas 5 y 8 (las que tienen estas flechas encima de ellas). 
Para disparar un misil, pulse la tecla 7 (flecha hacia arriba). Por cada 
alienígena que alcance aumentará su puntuación. Los que están más 
lejos valen más puntos que los más cercanos. El juego finaliza cuando 
haya destruido a todos los invasores o cuando el más próximo de los 
que quedan, alcance el punto marcado con una “x”. 


Indicaciones sobre el listado 


En la primera parte del programa se definen cuatro caracteres 
gráficos. La utilización del + en las líneas 10, 100, 200 y 300 es 
opcional. Estos dos caracteres no influyen en el programa y su único 
objetivo es el de conseguir un listado metódico que le permita ver las 
formas de los caracteres que está tratando de introducir. Siguiendo 
nuestra notación habitual, cuando en el programa se utilicen caracteres 
gráficos, éstos aparecerán entre corchetes para indicar que los ha de 
introducir en modalidad gráfica. En el listado se utiliza la variable 
“xL”. Si quiere, puede poner una minúscula “1” en lugar de la “L”. 

Fíjese en el espacio que hay entre los caracteres gráficos de las 
líneas 500 y 510. Hay un espacio tras el último carácter de la línea 500 
y uno delante del primer carácter de la línea 510. Esto es para asegurar 
que las líneas de navíos atacantes estén alternadas y que aparezcan los 
navíos de las filas impares en la zona de los espacios que hay entre los 
navíos de las filas pares. Esto es muy importante para el juego. El 
símbolo que hay entre comillas en las líneas 1440, 1555, 1595 y 1635 es, 
simple y llanamente, un punto. No se preocupe porque la línea 7020 
termine con “TOY. Es correcto. En la última línea del programa se 
vuelve a utilizar esta forma de fragmentación de cadenas. 


Estructura de subrutinas 


10 Define el primer carácter gráfico de navío alienígena 
100 Define el carácter gráfico del lanzador de misiles 
200 Define el segundo carácter gráfico de navío alienígena 
300 Define el carácter gráfico de la explosión 
400 Inicializa las variables y establece los colores del papel y la tinta 
500 Inicializa las cadenas 
1000 Imprime los alienígenas 


1190 
1409 
1599 
7099 
7510 
7900 


8900 
85pp 
9000 
9509 
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Imprime y mueve el lanzador de misiles 

Dispara el misil 

Comprueba si alcanzó al alienígena y si acabó el juego 
Suprime a los alienígenas alcanzados 

Aumenta la puntuación, si alcanzó a los alienígenas 

Imprime la explosión, produce el sonido y presenta la nueva 
puntuación 

Bucle principal del juego 

Mensaje de que perdió el juego 

Mensaje de que ganó el juego y ofrecimiento de jugar otra vez 
Función de cadena 


Detalles de programación 


Los navíos alienígenas se disponen en unas cadenas y, cuando son 
alcanzados, se utiliza una rutina de fragmentación de cadenas (línea 
7000) para sustituir los caracteres gráficos por espacios en blanco. 


Mejoras posibles 


Añadir una rutina para que también los alienígenas le disparen de 
forma aleatoria y, así, el lanzador de misiles tendría que preocuparse 
de evitar el fuego enemigo. 


Programa 

3 REM invasores del S3pectrum 
19 PORE USR "ii" +0,BIN 900011090 
20 PORE USR "i1'"+1,B6IN 9ull1109 
39 PORE USR "i"+2,BIN v11111109 
40 PÚRE USR "i"+3,BIN 11111111 
SO POKE USR "i1"+4,BIN 11000011 
50 POKE USR "i"+5,BIN 11000011 
70 PORE USER "i"+5,BIN vl110011u 
350 PORE USR "i"+7?,BIN 00100108 
1900 PORE USR "u'"+0,B6IN 000110009 
110 PORKE USR "Uu"+1,B6IN 990011000 
120 POKE USR "u"+2,BIN veV11V00 
130 PORKE USR "u'"+3,B61N 001111009 
14090 POKE USR "u'"+4,BI1N 01111118 
150 PORKE USR "u"+5,6IN v1111110 
150 PORKE USR "U"+SB,BIN 11111111 
170 PORKE USR "u"+?,BIN 11111111 


34 Spectrum Libro de Juegos 


GORRO 


DADA PAS COC 
MN e ye E 


0-4 CY MA 6 


Ro RRRRRRRE 
Ro PRPrererre 
Slolelalolalolo] 


== 
fú 
Su 
GO O 


LET 52 
PRPER 7: 


Y+06, 


REM 
INR 


LET LS=INK 


IF Lg=" 


AI. 


PRINT AT 
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REM disparo de misil 
INR 6 


IF L4<>"7?" THEN RETURN, 
FOR m=19 TU y+65 sTEP 
PRINT AT mM, XL" ES: 

AT m+1.xL; 

NEXT m 

PRINT AT 6m+1.,xL;" 


REM comprueba si ha 
alcanzado a los alienigenas 
LET f=0 

LET de LET r=5 

GO SUB 000 

LET d$=95% 

IF f=1 THEN 60 TO 1670 

PRINT AT HTA 
AT OY+4,xL;" AT y+B,xL; 
¡AT y+d,xXL;" 

LET Qó6=scó; LET rz=d 

GO 35UB 7000 

LET Ccó$=95% 

1F f=1 THEN GO TO 1670 
PRINTOAT ye3,xL; 0.0 

AT Y4+3,xL;" “¡AT y+=z,xL;". 
AT Y4+2,xL;" " 

LET neos: LET r=2 

GO SUE 7000 

LET b$=25$ 

IF f=1 THEN 60 e 1570 
PRINT AT Y+l, XL ' 

AT y+1,XxL;" ¿AT PES a 
LET q$sab: Let r=0 

GO SUB 7000 

LET af=gs$. 

1F a$=2e$ AND b$=e5$ 
AND_c$=8% AND d$i=e$ THEN 
5O TO 39000 

REM no quedan alienigenas 
IF Q%=:86%$ THEN LET 3Y=y+2: 
PRINT AT yYy-2,1:8% 

GO TÓ 1100 

REM redefine las cadenas 
IF A%ixL)=" " THEN RETURN 
LET q$=95$1(1 TO xL-l)+" "+ 
as ixL+1 TO 1) 

LEFT FE 
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D) CO dm 


SAA PC 


06 Ss ES MG 


coco ca Coco 


0) 064 0) 
Pr GOD Q0r-]! 


G 


(0 


Es 


17) 


PRR OE PRPPPO 000 000 GS 


o 
DAR mn 
(5 


(0 Ci 00 
066 


NE 5] 

PRINT INK 0;AT 10,25; 
PRINT INK 0;AT 11,26;5; 
LET t=t-1 

RETUAN 

REM bucle principal 
del Juego 


IF t>3D+INT' (ENDR15) THEN 
S: T t=0: 


PRINT AT Y,1l; INR 5,3686 
BEEP .17-Y4/y1080,-10 

GO 5UB 1100 

LET bSi=FN m$lb$) 

PRINT AT Y+2,1; INK 2,b8$ 
BEEP .17-4/100,-14 

GO _ SUB l100 

LET cóá=FN máicós) 

PRINT AT y+4,1; INK 5;Cc5S$ 
BEEP ,17-y/-100,-10: 

GO SUB 1100 

LET dizFN mg$idg) Ñ 
PRINT AT Yy+6,1; INK 2,d5% 
BEEP ¿17-9/100, -14: 

GO ea 11009 


IF $233 2508 d$<>2$ THEN 


4250 AND c$< eS THEN 
GO TO 3500 
1F $355 dar b$x<>eS5 THEN 


50 
1F_ 29:14 THEN «60 TO 385408 
LET"t=t4+1 
GU TO 500 
PRINT INK 0;AT 13,1: 
lle cogieron!!!" 

60 TÓ 9020 
REM no quedan alienigenas 
PRINT INK 0,AT 20,1; 
“Bien hecho,”", 
"lisalwo la tierra!l!”; 
INPUT "?Jugamos otra vez?" 

s.m) "¡76 
IF z$t1)="s" THEN RUN 

K PAPER 7? 
STOP 


DEF FN m$ta$) =9a5(2 TO )+ 
as 11) 


5 
Revoltigrama 


Si bien su Spectrum le abre la posibilidad de nuevos juegos formi- 
dables, también es bueno saber que lo podemos utilizar para recordar 
nuestros viejos juegos favoritos. El revoltigrama es una versión, versátil 
y llena de colorido, del juego que antes conocíamos como un tablerillo 
en el que había una serie de letras y un espacio en blanco, y teníamos 
que mover las piezas (dentro del tablero) para llegar a formar la frase 
(o conjunto de palabras) deseada. 

Si no ha visto nunca este juego, fíjese en la figura que aparece en la 
pantalla. Hay un tablero de cuatro por cuatro cuadrados en el que obser- 
vará que una posición está vacía ; es decir, hay quince letras y un espacio 
en blanco y tiene que utilizar este vacío para mover las letras por el 
tablero. 


Reglas del juego 


Imagine por un momento que el tablero está formado realmente 
por piezas de plástico. Podría mover las piezas que estuvieran encima, 
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debajo o a los lados del espacio en blanco, y la posición de la pieza que 
haya movido se convertirá en el nuevo espacio blanco. Observe que el 
número de movimientos posibles es limitado (dos, tres o cuatro, depen- 
diendo de la posición del espacio en blanco) y que es imposible mover 
las piezas diagonalmente. 

Las mismas reglas se aplican a la versión del juego del Spectrum. 
Puede mover cualquier pieza que esté inmediatamente a la izquierda, 
derecha, arriba o abajo del espacio en blanco. Para indicar su decisión 
tendrá que teclear el número del cuadrado (del 1 al 16) que contiene la 
pieza que desea mover. Si trata de mover una pieza que no puede, el 
Spectrum no le dejará. En lugar de ello, tratará de ayudarle indicándo- 
le la numeración de los cuadrados, en caso de que su error se deba a 
que tecleó un número erróneo. Si desea ver estos números en la 
pantalla, pulse cualquier tecla de letras (en realidad, cualquier tecla 
que no valga para realizar movimientos). 

Cuando ejecute (RUN) el programa, lo primero que hará éste será 
preguntarle si desea introducir un conjunto de palabras. Si usted 
responde que “no”, entonces los cuadrados se rellenarán con las letras 
de la A a la N. Si desea introducir un conjunto de palabras, el 
programa le preguntará por tres palabras de cuatro letras y una pala- 
bra de tres letras. Naturalmente, esto implica que usted puede variar la 
dificultad del puzzle. Si elige palabras en las que muchas letras se 
repiten, el puzzle será más fácil que si elige palabras cuyas letras 
coincidan lo mínimo posible. 

Cuando haya introducido las palabras, verá cómo éstas se mezclan 
(el programa ya le habrá preguntado cuántas veces desea mezclarlas) y 
cuanto más se mezclen más difícil será el juego. ¡Ahora le toca a usted! 
(ha de ordenarlas hasta obtener la configuración original). El Spectrum 
llevará la cuenta de los movimientos que realice y al final del juego le 
comunicará cuántos necesitó. 


Indicaciones sobre el listado 


En este programa observará que, aunque normalmente utilizamos 
letras minúsculas para los nombres de variables, aquí utilizamos la 
mayúscula “L”, como ya explicamos en la sección “Indicaciones sobre 
los listados” de la Introducción. Si usted quiere puede teclearlo como 
minúscula; recuerde que el Spectrum las tratará de igual modo, pues 
no reconoce diferencia entre ellas. 


Revoltigrama 


Estructura de subrutinas 


Define los agrupamientos 

Establece el juego 

Bucle principal del juego 

Final del juego 

Comprueba si ha finalizado el juego 

Establece el tablero de juego 

Imprime la estructura 

Rutina para mezclar las letras 

Imprime los números en el tablero (para ayudar) 
Imprime el espacio en blanco y los mensajes de error 
Lógica de los movimientos 

Coloca el espacio en blanco 

Imprime el título y las preguntas iniciales 
Realiza los movimientos 

Introduce las palabras seleccionadas 

Cambia la condición de los atributos 

Continúa los movimientos 


Define los caracteres gráficos que se utilizan para la estructura 


Detalles de programación 


Este programa es complicado, tanto por su longitud como por la 
cantidad de lógica que precisa. Sin embargo, si usted analiza el progra- 
ma sección por sección será capaz de comprender lo que sucede en 


cada paso, pues la estructura de subrutinas es muy sencilla. 


Mejoras posibles 


Añadir algo a un programa tan largo como éste puede ser una gran 
tarea. Sin embargo, hay una posibilidad de mejorarlo. Sería muy útil 
disponer de una rutina que le recordara al jugador cuál es la disposi- 


ción inicial. 
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Programa 


um 
D 
m 
pr 


Revoltigrama 


,4) 
(16) 
18) 


GQ 
60 
COG 
HHH 
pr que Qu 
eco 


3UuB 5500 

5UB 1000 

wr=1 THEN GÚ SUB 5580 

3ada=0: LET error=ug 
3090 


gin e 
600 


SJ 
UB 
s5UB 
UB 
uB 


FP 
POuUIÓ 
Solo jolo 
EIC CA 


120 GÚ SUB 40990 
139 60 _3UB 500 
140 LET jugada=jugada+1 
150 IF fin<>0 THEN 60 TO 120 
160 PRINT RT 19,0; INK Q, 
“Lo hizo en "; jugada, 
' jugadas” 


170 O "?Jugamos otra vez?"; 


: 5" THEN RUN 
190 INK 0: PAPER 7 


300 LET Ffin=0: rol k= 
in=1 


20 
25 
30 IF TES THEN 
40 
so 
60 


R$ (Bá+k) 


"I Pr 


0-30 
Go 


MNR up 

ECH ERE RRE PRO 560 
Y Mron0 
60066 


a) 


0) 


fo 
pa 
o 


a 
La] 


Tu 


- JM 


TG 
06 


m 
5 


UN 


wD 
o 


ht 


fÚú 
[3] 
[o 


DIA ANO 
mine UICACOIaNCa Ca 

meda 
6006 OGG 


nao 
0-1 


a 
6 


MONA 
O Ch Ch Ch 
GRrO ue 
6606 


Revoltigrama 


Dry PRD 


=n 
D 
2D 
”í 

— 
W3 


PbarabrG0D 


24 U+ (00 + 
HO re (eo 
: SS 
H 
Z 
ya 
fi 
] o 


Ru. Gr 


A es 


D 

Al 

H 

Z 

ÁH 
JD SD +3 105 TE 
us 


- mu 
mu 
H 
de 
y 
fu 


e 
Ju o. 


REO: On 
02m =m 


u 

D 

H 

Z 

pa 
JD SD AS TDS TO 
par jes Maa Dar 


a 


LET isz4: LET js 
LET i¡o=0; LET yo 


LET i=18: LET 

IF RND>.S EN? 'cÓ “0 2570 
LET i=is+ INT (RNC*2) 2-1 
IF i¡i>4 OR 1¡<1 THEN 

LET iz=i5: 60 TO 2570 


390 
LET jejs+ INT (RND*2) +2-1 
IF _j>4 OR 351 THEN 
ET j=jys5: 60 TO 2520 
IF izio AND j=j0 THEN 
us TO 2520 
i0=i5: LET ¡oz=jys 
SS SUE 680080 


d 
RETURN 


-- 
-. 
-- 
-- 


4: 
[va] 


RETURN 
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3500 FOR L=0 TO 3 

3510 FOR p=0 TO 3 

3520 PRINT AT 4+L33,10+p%*€3; 
PAPER 5;" y 

3530 NEXT Pp 

3540 NEXT L Ñ 

3550 INK 0: PAPER 6 

3555 IF error=0 THEN RETURN 

3550 SANT AT_20,0, 

3570 FOR L=1 TO 64 

3530 PRINT PAPER 4," "; 

3594 NEXT L 

23600 LET Ae 

36109 RET 


4000 PAPER 4 

¿4004 INPUT '"“Cual es su jugada?" 
; LINE m8 

4005 IF m%$="" THEN 50 TO 4000 

SUE 


f 
1) 
pus 
103) 
H 

¡>TDVN 
= 
4H 

Ul—. E 
CCA $1 


40309 1F m0 A 


[ Um 1) ¿41 


--2 Hp 
+1 ZO 
nde 9D 


qa Ú m " 


¡-i5)+ABS [(j-Js!1=1 
O 5008 


16 THEN LET iszL: 
LET ms=k 


CA RHOD( > 


amet 


¿na andl 
cn 


27 CncacoA cn 


(53) 


0 


LOCA CAEN 
GO 


coin cn E 


2 


5] 


Es 


ON on 


MALA 


hh Ch Ch 
eur Gua 
0666 cat 


NUNCA CN 


Min Ch 


cat mama 


Odd 
0-JMA PORN GO 


660 EE Sac 
lo oo) 


Cunicn 


1 
Yu 
E 


E 


CC CT e Cs 
Prererer 
+ (Mifur: 6 


GOGO 


Revoltigrama 


E 0: PAPER 7 
do _THG Y 


PRINT” AT 1070, 
CLesea intro oducir Las " 


- 6 
0 
0D 


H 
Z 
hn] 
e 


$ 
' THEN_GO TO 5550 
)="5" THEN LET wr=1: 
O 


“na " THEN LET 0uwur=0: 


.-. $ 


goce as 


LE 


Gu 
PRINT 
PRINT RAT 15,0;"?cuantas'",; 
A o Las mezclamos?"; 


F360W pa 
CUCA Capa 


10 


INPUT 

IF 5 <1 "THEN 60 TO 5600 
PRIN 

RETURN 

GO 3UB 3500 

INK 0 
LET_fi=(¿s-1)3+(15-1) 3% 
32+5+32+22528+11 

LET fefld: LET c=128 

GO _suUB 7000 

LET f2=(j-1)33+(i1 -1) 3% 
32+3:32+22528 +11 

LET fare 

GO sub 7000 

GO 5UB_ 5000 . 

PRINT AT S+(i-1)%3, 
11+(-1)33; INK 0, PAPER 6; 
FLASH 1;b$ibli,4)) 

FRINT AT S+(is-11$3, 
11+(45-1)<3; INK 0; PAPER 6 
; FLASH 1;b$(íbíi5,/51) 
LET f=f1: LET c=-123 

GO SUB 7000 

LET fare 

50 SUB 7000 

RETURN 
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56500 CL5 3% 
6510 PRINT AT S,0; "Elija 3"; 
a " palabras de cuatro " 
6520 PRINT "letras y una de"; 
tres letras." 
6530 INPUT "Teclese la primera"; 
' palabra de "“'"cuatro"”; 
“ Letras "¡as$ 
6540 IF LEN a$<>4 THEN 
GO TO 6630 
6550 LET vs$(1 TO 4)=x35$ 
6560 PRINT “La primera "; 
"palabra es ";as$ 
6670 INPUT "Teclee la segunda "; 
“palabra de" “"cuatro "; 
"Letras'";as5$ 
6580 IF LEN a5:<>4 THEN 
a GO_TO 5570 
5590 LET vs$(S TO 3)2a36 
6600 PRINT "La segunda , 
"palabra es ";,as$ 
6610 INPUT "Teclee la tercera ',; 
"palabra de "'""cuatro "; 
"“Lletras";asf$ 
6620 IF LEN _a$<>4 THEN 
GO TO 5610 
6630 LET v$(9 TO 12)=a5 
5640 PRINT "La tercera "; 
"palabra es ";¡a5 
5650 INPUT "Teclee la palabra ", 
de tres "“"letras ";as$ 
5660 IF LEN a$<>3 THEN 
GO TO 5650 
65670 LET vs$(13 TO 15)=:a5 
6630 PRINT "La cuarta "; 
“palabra es "¡a5 
56690 PRUSE 20 
5700 LET v$1(16) =" 
6710 LET b%$=u5$ 
6720 RETURN 
7000 POKE F,PEEK fe+c 
7050 RETURN 


3009 LET bis, jsjsbli,j) 
5030 LET bli,j)=16 
5040 LET t=iS: LÉT is=i: LET ist 


3000 FOR_i=0 TO 7? 
3010 POKE USR "a"+i,BIN 000900001 
23020 POKE USR "b"+i,BIN UOBLLLIVO1 
9030 POKE USR "c"+i,0 

3040 NEXT i 

23050 POKE USR "b"+7,BIN 11111111 
3050 POKE USR "e "+7¿BÍN 11111111 
3070 PAPER 4 

3030 CLS 

3090 RETURN 


ES 
Salve a la ballena 


Los esquimales en kayacs < 
estan cazando una ballena en 
Para salvar la ballena debe 
conseguir que estrellen sus 
kayacs contra los ¡cebergs 


Puede Jugar n tres niveles 
de difFicul 


Introduzca 


¡Este es un juego para los ecologistas! El objetivo es asegurar que 
las ballenas sobrevivan en los mares árticos. Tendrá que burlar a los 
esquimales que, en kayacs, tratan de cazar a la ballena. Si éstos chocan 
contra los icebergs, tendrán que abandonar la caza, de modo que usted 
tendrá que atraerlos hacia los icebergs para conseguir que se estrellen. 


Reglas del juego 


Al principio del juego tendrá que seleccionar el nivel de dificultad. 
Su elección influye en la posición inicial de los icebergs, haciendo así 
que el juego sea más fácil o más difícil. Para mover la ballena, pulse las 
teclas de flechas. Si algún kayac choca con un iceberg, desaparecerá; 
si la ballena choca con un iceberg, el iceberg desaparecerá (natural- 
mente esto disminuye su protección y por tanto no es muy aconseja- 
ble). Si algún esquimal alcanza a la ballena, la arponeará y la matará. El 
juego finaliza cuando todos los esquimales se hayan estrellado o cuan- 
do la ballena haya muerto. 
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Indicaciones sobre el listado 


En este juego hay tres caracteres gráficos definidos por el usuario. 
El de la ballena utiliza la letra “u”, el de los icebergs la “1” y el de los 
esquimales la “e”. En el programa verá que estas letras están entre 
corchetes (por ejemplo, en la línea 1030 aparece la [e]). Recuerde que 
no ha de teclear los corchetes. Sólo se utilizan para indicarle que antes 
de introducir estas letras ha de pasar a la modalidad gráfica. En la 
primera línea de los “POKE USR' se han incluido los signos redundan- 
tes “+” (como ya es norma). Recuerde que esto sólo sirve para 
obtener un listado más ordenado que le facilite ver la forma de los ca- 
racteres gráficos. Si quiere, puede prescindir de ellos al introducir su 
programa, ya que esto no afectará al juego. 


Estructura de subrutinas 


10 Define los agrupamientos 
500 Define el carácter gráfico de la ballena 
600 Define el carácter gráfico del iceberg 
700 Define el carácter gráfico del esquimal en el kayac 
1000 Imprime la estructura del título y el ofrecimiento del nivel de 
dificultad 
2000 Imprime los esquimales en las posiciones iniciales 
2100 Imprime los icebergs en las posiciones iniciales 
2200 Imprime la ballena en la posición inicial 
2300 Bucle principal del juego 
2400 Comprueba si ha finalizado el juego 
3000 Rutina de movimiento de la ballena 
4000 Rutina de movimiento de los esquimales 
7000 Final del juego; imprime los mensajes finales y ofrece un nuevo 
juego 


Detalles de programación 


Las posiciones iniciales de kayacs se establecen, al azar, dentro de 
una banda alrededor del marco del juego (líneas 2020 y 2030). Las 
posiciones iniciales de los icebergs se establecen de una forma similar 
(líneas 212/) y 2130), pero teniendo en cuenta el nivel de dificultad 
introducido en la línea 1110. En las líneas 49M y 4110 se utiliza la 
sentencia ATTR (atributo). Con ellas se detecta si un kayac ha choca- 
do contra un iceberg, en cuyo caso desaparece el kayac, o si ha 
alcanzado a la ballena; entonces el juego finaliza. 


Salve a la ballena 47 
Mejoras posibles 
Una persona imaginativa podría mejorar mucho los caracteres 
gráficos que se emplean en este juego. ¿Qué le parecería añadir un 
chorro de agua a la ballena? 


Programa 


3 REM Salve la ballena 


19 DIM x1(20) 
20 DIM yu (20) 
300 PORKE USR "u”+0,BIN 000VVVLY 
310 PÚKRE USR "U”"+1,BIN 0000000 
520 PORE USR “uy” '+2,BIN 0UI1GOD0 
530 POKE USR Y +3,BÍN Vlillivuua 
3540 POKE USR "u"+4,BIN 11111001 
550 PORKE USR “+ >DIN 1111111 
35560 PÚKE USR "U"+5,BIN ¿1111001 
3570 PORKE USR "U"+7?,BIN 0UuVVVOWA 
200 PUKE USR "i"+0,E6IN 0Y9Uu0YaYa 
s10 PORKE USR "i"+1,56IN 0ul1douVu0a 
620 PORKE USR "i"+2,BIN 01110010 
630 PORKE USR "i"+3,BIN vu11101109 
640 POKE USER "i"+4,B6IN 01111110 
5650 PORKE USR "i"+5,BIN 211111111 
560 PORKE USR "i"+6,BIN 211111111 
670 PORKE USR "i"+7?,BIN 211211111 
700 PORKE USR "e"+9,BIN V00V0A0VW 
¿10 PORE USR "e"+1,BIN 11001000 
720 POFRE USR "e"+2,6B1N 01011000 
730 PORKE USR "e"+3,BIN vulliugoa 
740 PORE USR "e"+4,BIN 11111111 
750 PORE USR "e"+5,B6IN Qulliluu 
760 PORKE USR "e"+56,BIN 09000019000 
¿70 PORE USR "e"+7,BIN vouVuV1i1o 
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1000 INK 0: PAPER S 
19810 CL5 
1020 PRINT AT 2,2;"S a lL v e”; 
úl La b a le 
10930 PRINT AT S,2; 
"Los esquimales en"; 
" hayacs ":; INK 2;"C0e]3"” 
1040 PRINT " estan cazando una" 
s" ballena CuJ " 
1050 PRINT *" Para salvar la', 
* pallena debe” 
1060 PRINT " conseguir que”; 
" estrellen sus" 
1070 PRINT " kayacs contra los" 
5" i¡icebergs "; INK ?;*"(i3' 


10530 FRINT AT 16,2;' "Puede Jugar" 
; en tres niveles" 


1490 PRINT " de dificultad" 

11006 PRINT “ 
Ni Introduzca su eleccion" 

1110 INPUT "  Ti=dificil,", 
"2Szintermedio,”' 
e Se taciLet e: 

1120 1F J<1 OR d:3 THEN 
GO TO 1110 

13500 PAPER S: INK 5 

15808 CL53 

2000 REM imprima kayacs 

2010 FOR c=1 TO 20 

2020 LET x=((36N (RND-.5))% 
¡ (RAD*<4)+11))+15 

2030 LET Y=((SGN (RND-.5S))+ 
¡ (RAD<4) +8)) +9 

2040 INK 2 

2050 PRINT AT y,x,"(el" 

2055 LET x1íc)l=x: LET Yic)=y 

2050 NEXT c 

2100 REM ES 1Cebergs 

2110 FOR c=1 TO 

2120 LET US GN URND==5)) 5 


nba da 4) 1 +3 


4 It 
139 PRINT El Y. “lid 


1 
1 
1 
2130 LET y=C(SGN AOS) 18 
1 
1 
1 NEXT 


DTC 


2200 REM imprime ballena 
2218 INK 4 

2220 LET ZN ((RNAD:=) +10) 
2230 LET 3Y=INT ¡ (AND*2) +10) 
<24u ERINP RT y,x;" [uJ" 


60 _ SUB 3000 


FOR c=1 TO 
=0 TREN GO TO 234u 


AGO FO PO Sa is A 
INIOTA IA IATA 
O TS 
AGUNIOGEIN 

a) 

1) 

x 

La 


IDIOTOBISIDIDIOTOIOTA 
FERFEFOGOSDOO 
DR ECO 4 AN E A 
660656064 


Salve a la ballena 


Q_THEN 60 TO 5000 
:300 


REM AS de la 


“9 10 
LET Z=x: LET v=y 
cer a$=INKEYS 


a5="" THEN 60 TO 3040 
1F a3$%$="S" THEN LET x=x-1 
IF a$="3" THEN LET x=x+1 
a THEN LET y=y-1 

3$z 


pa "86" THEN_LET Y=y+1 
PRINT AT v,zZ; INK 5," " 
PRINT AT Y,x; INK 0," (uJ]" 
RETURN 


REM movimiento de kayars 
PRINT. ar UC), xXx Cc); 


LET 40: LET d=0 

LET d=3GN_ (xtc) -X) 

LET x(dci=INT (x1(c)-di 

LET e=sSó6N (yicil-y) 

LET yici=INT (yici-e) 
IF_ATTR EG ao THEN 
LET x(c)=0: 60 TO 4500 

IF ATTR ER THEN 
GU 700 

INK 2 . 

PRINT AT yic),x ici; “(el" 
RETURN 


PRINT RAT 20,1; PAPER ?; 
"La ballena ha muerto” 
PRINT AT 3Yic),xdc1; " á 

GO TO 3000 

PRINT AT 20,1; 

"se salvo por esta vez o 
INPUT "jugamos otra vez" 


is:n37? “,9 
El AE THEN RUN 
STO 


ma 


7 
Quiniela hípica 


A 


pa 
A 
A 


A 
prarsranasnanrrraranaranirananaaa 


Es un juego de apuestas, muy simple, que presenta una carrera de 
caballos bastante convincente, acompañada por un fondo musical 
adecuado. La sintonía es la de Camptow Race y si alguna vez la 
escuchó seguro que la reconocerá. Si desea enseñar las capacidades de 
carácteres gráficos y de sonido de su Spectrum, este programa le ofrece 
una buena demostración. 


Reglas del juego 


Al principio del juego dispondrá de 100 ptas. Tendrá que decidir 
por qué caballo apuesta y cuánto (los premios son de cinco por uno, 
así que si apuesta 20 recibirá 100). El Spectrum lleva la cuenta de sus 
pérdidas y ganancias y le dirá cuándo se ha arruinado. Durante la 
carrera su caballo es el blanco, pero como la carrera se realiza auto- 
mática y aleatoriamente, no podrá hacer nada para ayudar a su ca- 
ballo. 
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Indicaciones sobre el listado 


Ponga mucha atención a los puntos y las comas de las sentencias 
DATA de la subrutina 6000. Si se equivoca al teclear esta subrutina, el 
programa no dejará de funcionar, ¡pero la música puede ser irreconoci- 
ble, o el sonido discordante! El carácter entre comillas de la línea 122 
es el símbolo *4” (teclas SYMBOL SHIFT y 3). Como siempre, los 
corchetes indican modalidad gráfica y el símbolo =— de la línea 1310 
indica que una vez que esté en modalidad gráfica ha de pulsar la tecla 
CAPS SHIFT a la vez que la tecla 6. 


Estructura de subrutinas 


SO Define el carácter gráfico para el caballo 
1000 Imprime la pista para la carrera 
1500 Imprime los caballos 
1560 Realiza la carrera 
2000 Estructura del título 
3000 Rutina para apuestas 
4000 Movimiento de los caballos 
SO00Q Interpreta toda la música 
6000 Interpreta una sola nota musical 
8000 Rutina Perdió/Ganó 
9000 Fin del juego y ofrece volver a jugar 


Detalles de programación 


Es el único programa de este libro que interpreta una tonadilla y, 
por tanto, merece la pena fijarse en los detalles de las líneas 600-608/. 
Observe que estas sentencias DATA están formadas por pares de 
valores. El primer valor de cada par indica el tono de la nota, y el 
segundo su duración. Normalmente, el segundo valor es 1, 0.5 ó 0.25 
(representando una blanca, una corchea o una semicorchea). Cada 
cierto tiempo aparece el número —99 en vez de un número de tono. El 
efecto que esto produce es una pausa en la música. La línea 608/ indica 
el final de la tonadilla. Tras detectar el 99, 99 el programa vuelve a 
tomar la dirección inicial de las sentencias DATA para poder empezar 
desde el principio, la próxima vez que interprete la música. Al princi- 
pio del juego la música la produce la subrutina SMMM, que interpreta 
todas las notas, una tras otra. Sin embargo, debido a que el Spectrum 
no puede hacer dos cosas a la vez (no puede hacer sonar una nota y 
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mover los caballos), las notas se producen mediante una llamada 
directa a la subrutina 6000), la cual hace sonar una nota y después 
toma la dirección de la nota siguiente, de modo que la próxima vez que 
se la llama hará sonar la nota siguiente. Para sincronizar el sonido y 
los movimientos, primero se mueven los caballos, luego se llama a la 
subrutina 600), después se vuelven a mover los caballos y volvemos a 
hacer sonar otra nota y, así, sucesivamente. El resultado es una secuen- 
cia de notas a intervalos mayores que lo normal, pero todavía identifi- 
cará la tonadilla que se interpreta, pues no se tarda mucho en mover 
los caballos. Esta técnica la puede utilizar en otros juegos, pero si la 
cantidad de cálculo a realizar (mientras que se hacen sonar dos notas) 
es excesiva, entonces no será capaz de identificar la tonadilla. 


Mejoras posibles 


Si se cansa de Camptow Race sustitúyala por la tonadilla que desee. 
También podría utilizar los mismos gráficos en un programa de carreras 
de caballos en el que el usuario controlara el movimiento de uno de los 
caballos y tratara de batir al resto. 


Programa 
10 REM Quiniela hipica del 
Spectrum 

500 POKE USR "h"+0,BIN 00000000 
510 POKE USR "h"+1,B1N vegul10u 
320 PURE USR "h"+2,BIN 04VIID1O 
530 POKE USR “"h"+3,BIN 11111111 
540 POKE USR "h" +4,BIN 91111101 
550 POKE USER "h"+5,BIN 01000010 
350 POKE USR "h"+5,BIN 19000001 
570 POURE USR_"h" +7 BIN vuvG0V00 
509 50 SUB S00u0 

£10 LET total=100 


1999 PARER 4: INK O 
31 
1220 PRINT RAT 1x5 INK 0; "4"; 


13009 Y 
1310 PRINT AT 
153520 NEXT y 


PERPR pr 
REE pre 
UE OLOT 0 
G6(MG6 aa 
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DU pp +*C 
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REM movimiento de caballos 
FOR zZ21 TO S 
A AT. 39 (Z),X 1Z); 


Les UE IED 8) 
PRINT AT ON TN 


IF x1(2)>30 THEN GO TO 5000 
GO SUE 6000 

IF t=39 THEN RESTORE 

NEXT _Z 

RETURN 
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5008 60 SUB 2000 

5005 LET ritmo=4 

5010 LET i¡= 

5015 60 SUE 69009 

35020 IF t=9299 THEN PRINT 


AT 15,i+1; ': RESTORE 
RETURN 

5030 PRINT an idas End” 

5038 PAUSE 2 

S040 LET izit+.4 

Ss0s0 60 TO 5015 

2000 CATA 9,.5,9,.5,9,:.5,6,1:5, 
3, e 11; «SS 0, .5,0, .5, 
-93, ¿S',0, .5,4,1.8,0, A 

2010 CATA 9,5 39,5 6,.5,9,.9, 
111.512.015, 5 

5020 DATA _-36,.5,6,.25,4,.25, 
2,,.25,4,,.25,6,.5,4,.5,2,1.5 

6030 DATA -95,1,2,.75,2,.28, 
5, .5,9, . >») 14,1.5S 

enga DATA -99,.5,11,.75,11,.25, 
ld, ¿SS LL PT O 

s0su DATA 6,.25,7,.25,9,.5,9,.5, 
Da .25,0, (e) 

26069 DATA 9,.25,39,.25,11,.5, 
9,.5,6,1 

c074 DATA A REA IN A 
4,.235,4,:23,2,12 59 

50350 DATA 393,99 

56090 READ p,t 

51009 IF _t=33 THEN RETURN 

sS110 LET t=t/Fritmo 

6120 IF p=-99 THEN 
PHUSE INT 1(1%50): RETURN 

6130 BEEP t,P 

6140 RETURN 


35000 IF zZ=b THEN PRINT 
AT_13,0;"Ha ganado 
LET total=total+INT 


WIIMTOCO 
De ei -.. 


DD 21H HH 
ICM 
0 


3000 IN 
vt 


1="s5" THEN 60 TO 100 


MA O 
GOGO En 


5 
Ataque láser 


t1tiLo consiguio!!! 


Es un juego apasionante que emplea unas técnicas gráficas no muy 
usuales. La pantalla hace las veces de un universo esférico, de modo 
que si se sale por arriba de la pantalla aparecerá por abajo y si se sale 
por la derecha, reaparecerá por la izquierda. El juego es una carrera 
contra reloj. Dispone de cien segundos para destruir, con su infalible 
cañón láser, al navío enemigo. ¡La cacería comienza! 


Reglas del juego 


Al principio del juego tendrá que seleccionar el nivel de dificultad. 
Esto influye en la impredictibilidad de la trayectoria del navío enemigo 
y en el número de estrellas que aparecerán. En este juego las estrellas 
son obstáculos. Si choca contra una, será repelido aleatoriamente, de 
modo que cuantas menos haya, más fácil será mantener el rumbo. Su 
navío se mueve continuamente; tiene forma de flecha y puede colocarlo 
en ocho direcciones diferentes. Cada vez que usted pulse una tecla, el 
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navío girará 45” en el sentido de las agujas del reloj. El enemigo es un 
navío en forma de rueda de carro que vaga por el espacio. Para 
disparar el láser, pulse la tecla de flecha hacia arriba. Su proyectil 
saldrá en línea recta desde la punta de su navío. Si alcanza al enemigo, 
éste se desintegrará, acompañado de efectos sonoros y visuales. En la 
parte superior izquierda de la pantalla aparece constantemente el 
tiempo que lleva intentándolo, y, cuando llegue a 100, su oportunidad 
habrá finalizado. 


Indicaciones sobre el listado 


Fíjese, como siempre, en que los caracteres gráficos están encerra- 
dos entre corchetes. Acuérdese de introducir las letras indicadas, en 
modalidad gráfica y sin corchetes. También, como en el resto de este 
libro, cuando se utiliza “L” como nombre de variable, usted puede 
introducirla como minúscula. 


Estructura de subrutina 


20 Bucle principal del juego 
1000 Dispara, o gira la flecha 
2000 Trazado del láser y lógica de detección de impactos 
3000 Mueve el objetivo 
4000 Mueve la flecha 
7000 Estructura del título 
7500 Obtiene e imprime el tiempo 
7900 Imprime las estrellas 
8000 Inicializa las variables y define los gráficos de la flecha. 
8600 Define los gráficos del navío enemigo 
881) Inicializa el tiempo 
9000 Fin del juego 


Detalles de programación 


Es un programa complicado y presenta ciertos métodos nuevos de 
programación. Observe, por ejemplo, la forma en que el giro del navío 
enemigo se consigue mediante dos caracteres gráficos definidos por el 
usuario. Uno es una versión del otro, con un giro de 90”, y se 
imprimen alternativamente. Observe otra técnica interesante: las ocho 
versiones del gráfico de la flecha que se utilizan para conseguir que se 
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mueva en ocho direcciones diferentes. También merece la pena fijarse 
en la forma en que se ajustan la dirección y la velocidad mediante los 
agrupamientos “w” y “v” 


Mejoras posibles 
Si es ambicioso, puede conseguir que este juego sea más difícil, 


permitiendo que el navío enemigo dispare al azar. De este modo, al 
tiempo que persigue al enemigo, deberá intentar evitar sus misiles. 


Programa 
19 REM Ataque con Laser 
20 60 SUB 7000 
30 GO SUE 3000 
40 60 SUB 7500 
50 1F INT t>1000 THEN 
GO TO 90e0 
50 60 3UB 1900 
70 60 SUB 3000 
30 1F h=1 THEN 60 TO 3000 
398 60 SUB 4 
100 GO TO 4U 
1000 LET as$=INKEY5S 
10109 IF AE THEN RETURN 
1020 1F 3%='" 7?" THEN 60 TU 2000 
1030 LET k=k+1 
1040 IF k>33 THEN LET k=1 
1050 RETURN 
2000 LET xL=x+8+4 
2010 LET yL=175-y*+S3-4 
201585 GU SUE 2540 
2050 PLOT xL,yL 
206090 LET x= 
2070 IF vik)=1 THEN 
LET dx=255-xL 
2030 IF vik3=-1 THEN LET dx=-xL 
20290 LET dy=0 
2100 IF wik)=1 THEN LET du=-yL 
2120 IF wik)=-1 THEN 
LET dy=175-yL 
2130 IF vIik)zu4(tk)=90 THEN 
GO TO 2200 
2140 IF ABS dx <ABS dy THEN 
LET' dy=HAB3S aIAXEFSEÉN du 
GO TO 2200 
2150 LET dx=HBS dy GN dx 
2200 DRAW dx, ,du 
2210 PLOT xL,yL 
2215 BEEP .01,10 
2220 DRAW OVER 1;dx,dy 
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N 
1P myu+dy>175 
THEN GO TO 2 


2300 PLOT mx,my 

2310 DRA dx ¿dy 

2320 BEEP .01,-19 

2330 NEXT 1 

2340 RETURN 

2500 LET h=8 

2510 LET duza-y 

2520 LET dx=b-x 

2530 Ea WUIKI dx <> w UK) *dy THEN 

Ñ RETURN 

2540 IF HES vik)*SGN dx<>v(k) 
OR ABS wik)x556N dy<owik) 
THEN RETURN 

2550 LET h=1 

2560 RETURN 

3000 IF nb1=0 THEN 
PRINT AT y,x;" " 

3010 LET xu=x+evik) 

20290 LET Yyz=y+w(k) 

3030 IF x<0 THEN LET x=31 

3040 IF x>31 THEN LET x= 

3050 IF y<0 THEN LET y=21 

3050 IF y>21 THEN LET 3Y= 

3055 1F ATTR (Y,x3<>18S THEN 
GEEP .1,-10 LEFT nbi=1: 
GO TO 1039 

350790 PRINT AT Y,x;:mglik) 

¿05350 LET nb1=9 

3020 RETURN 

4000 IF RND>1.05-df-20 THEN 
LET z=zx+1 

4010 1F 2>8 THEN LET Z=1 

42d IF nb2=0 THEN PRINT 
HT a,b;'" 

4030 LET aza+w (iz) 

404080 LET b=b+w(Z) 

4050 IF b:<0 THEN LET b=31 

4050 IF b>31 THEN LET b=0 

4070 IF a<0 THEN LET a=21 

4039 IF 321 THEN LET a=0 

4409355 IF ATTR (a,b)<>15 THEN 
BEEP .1,-10: LET nb2=1: 
LET z=z2+1: 60 TO 4u18 

40909 PRINT AT_a,b;w$ir+1) 

4100 LET r=NOT r 

4110 LET nb2=0 

4120 RETURN 
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PAPER 1 

SORDER 5 

INK 7 

CL5 

AE ar 2,1;"A ta que”; 

n Laser" 

PRINT AT S,0;" "Usted esta"; 
" controlando una nave," 
PRINT "con una moderna", 

" ¿arma de rayos ” 

PRINT "laser,que esta" 

persiguiendo a un” 
PRINT "navio enemigo." 
PRINT 

PRINT “"Derribelo antes de" 
PRINT TAB S;"!!!¡perder su"; 
ú ro 

NPUT "Elija el nivel de ", 
AFA CUittad:"” 

“de 1(facil) a 10 (dificil)" 
Da de > Y 

IF dr<1 OR dfi>10 THEN 

GO TO 7100 

CLS 

RETURN 

ET t=(PEEK 235672+2556*PEEK 
2367 3+ESS3B%*PEER 23674) /S 
PRINT AT 0,0; INT t,/10;' 
RETURN 


1F RND>.1+df/S50 THEN RETURN 
e De AND+21,RND+S1; 


2109-10909000990090815N09 
0641100000908 -1A1A0 
BAAAAAAADON AA AAA 
AAA AAA A AAA 
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NAAA AHAAAARA AAA ANO 
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50010900900 A1454410000 
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9 
Línea maestra 


Este es un juego de destreza en el que ha de guiar un cuadrado a lo 
largo de un cable ondulado irregularmente. Si realiza este juego con un 
cable y un anillo real, será una comprobación de su constancia en la 
guía del anillo a lo largo del cable, mientras que si lo juega en el 
Spectrum será un problema de velocidad, así como de coordinación 
manos-ojos. El cuadrado se mueve automáticamente de izquierda a 
derecha de la pantalla, pero usted tendrá que mantenerlo encima de la 
línea, pulsando las teclas de flechas hacia arriba y hacia abajo. El 
objetivo de este juego es estar encima de la línea tanto tiempo como le 
sea posible, y al final del juego conocerá el porcentaje de tiempo 
durante el que lo consiguió. 


Reglas del juego 


Al principio del juego ha de seleccionar el nivel de dificultad. Esto 
determina el tamaño del cuadrado que ha de guiar a lo largo del cable. 
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Cuando aparece el cuadrado hay un pequeño intervalo de tiempo e 
inmediatamente empieza a moverse hacia la derecha. Para cambiar la 
dirección, pulse las teclas de flechas hacia arriba y hacia abajo. Mante- 
niendo su dedo sobre una de estas teclas, el cuadrado se moverá en esa 
dirección. 


Indicaciones sobre el listado 


En los programas de este libro aparece con frecuencia el símbolo 
<>. Recuerde que se introduce pulsando la tecla “W” con la tecla 
SYMBOL SHIFT pulsada. 


Estructura de subrutinas 


29 Bucle principal del juego 
105 Final del juego 
1000 Inicializa las variables e imprime la estructura del título 
2000 Dibuja el cable 
S000 Dibuja el cuadrado y calcula el porcentaje del tiempo sobre el 
cable 


Detalles de programación 


En este programa se utilizan gráficos de alta resolución, a fin de 
obtener el movimiento necesario para comprobar la habilidad de los 
jugadores. La subrutina 2/M/ se encarga de trazar la línea del cable, y 
el cuadrado se construye mediante el conjunto de sentencias DRAW 
que hay al principio de la subrutina SM0M, en la que se utiliza la 
función POINT para comprobar si el anillo cuadrado está sobre el 
cable. 
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Programa 

198 REM Linea guia 

20 60 3U5E 1000 

30 60 35UB 2400 

40 PAUSE 140 ! 

S0 PRINT AT 1,0, BRIGHT 1;"YA" 

50 BEEP .1,5 

70 LET y=100: LET x=10 

50 LET bx=y: LET ral2-df 

90 LET a LET vez 

1096 60 SUB Su 

105 OVER QU 

110 PRINT AT 1,0; 
"Estuvo sobre la linea '; 
AT 2,10;"el “; INT 
iaciertorlacierto+rerror)x 
19000) /-100;"X% del tiempo" 

120 INPUT '"*Jugamos otra vez", 

2 s/n)? "¡as 

130 IF ag$="s" THÉN RUN __ 

140 IF a$:x>'"nm'" THEN GO TO 120 

150 BORDER *? 

160 CLS 

170 STOP 


1040 INK 

1050 PAPER 

1960 BORDER 4 

1070 CLS 

1030 PRINT AT_2,7;"L INEA"; 


G E 
1490 PRINT AT S,0;,"ODebe guiar "; 
"on anillo, a lo largo” 
1100 PRINT "de un alambre"; 
' omdulado, *” 


1110 PRINT "utilizando las"; 
" teclas de flechas" 

1115 PRINT "hacia arriba y”; 
" hacia abajo. 

1120 PRINT 

11309 PRINT "Despues le”; 

indicare como estuvo” 

1140 PRINT "de acertado." 

11509 INPUT "Elija el mivel de"; 
' dificultad" ” 
o 3 1O0Ta4riiciL)” 
E IE > 7 

1160 IF 3Jfx1 UR di>10 THEN 
GO TO 1150 
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PLOT x,yY 
i7Oo 10 
LET ero add (RND+2%d) 
LEE de 
1E 431 YQ THEN LET y=y-r 


r=-f 


LE y«10 _THEN LET Yzy+ñ: 


LET error= 
RETURN 


—H 
L 
m 
pad 
r 

*-9.0 


LET 


10 
El Dado 


Antes de que aparecieran los micros, los juegos familiares se redu- 
cían generalmente a dos cosas: juegos de cartas o juegos de tablero, 
para los que se necesitaba un dado. En nuestra familia, muy a menudo, 
no podíamos encontrar el dado y tardábamos bastante en buscarlo en 
los armarios y entre las alacenas antes de poder empezar el juego. 
También, con frecuencia, en lo mejor del juego, el dado rodaba por el 
suelo, y teníamos que interrumpirlo hasta que lo encontrábamos en 
alguna esquina oscura. 

Puede que piense que, ahora que tiene un Spectrum, ya no hay 
lugar para esos viejos juegos como el Monopoly y el Ludo, pero vuelva 
a pensarlo. Hay juegos muy entretenidos que implican a muchos 
jugadores, sobre todo si no hay que dedicar mucho tiempo a buscar un 
dado, o peor aún, ¡a discutir en qué dirección cayó! Estos problemas 
los puede resolver si deja que un Spectrum participe en el juego, y se 
olvida del dado. 

Naturalmente, puede que el dado del Spectrum se convierta en el 
centro del juego. Usted puede diseñar juegos para jugarlos contra el 
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computador o contra otra persona. Después de todo, el dado se ha 
utilizado durante miles de años y seguro que le surgirán cientos de 
ideas sobre cómo utilizarlo. 

Si decide utilizar este programa observará una gran imagen en la 
pantalla, llena de colorido (si está utilizando un TV de color), y seguro 
que le agradará el sonido que produce, imitando un dado que rueda 
sobre una superficie de madera y el rebote final antes de pararse. 


Reglas para utilizar el programa 


Es muy sencillo: teclee RUN, y cuando el programa se lo indique, 
pulse cualquier tecla y el dado rodará durante un intervalo aleatorio; 
después, se detendrá y le mostrará el número que ha resultado. Cuando 
desee dejar de utilizar el programa, pulse la tecla BREAK y éste dejará 
de ejecutarse. 


Indicaciones sobre el listado 


En la subrutina que comienza en la línea 1000, observará que “[a]” 
aparece varias veces. Los corchetes que encierran a la letra “a” indican 
que se trata de un carácter gráfico. No teclee los corchetes. Pase a la 
modalidad gráfica y cuando vea el cursor G (hay que pulsar la tecla 9 
mientras que la CAPS SHIFT esté pulsada), pulse la tecla de la “a”. 
Acuérdese de teclear las comillas antes y después de la letra “a”. 

Observe que en la línea 2910 ha de teclear trece espacios en blanco 
entre los signos de comillas. Cuéntelos con cuidado, pues si introduce 
un número equivocado de ellos, el dado no funcionará. 


Estructura de subrutinas 


10 Bucle principal del juego 
1009 Imprime y borra los puntos 
2000 Dibuja el cuadrado amarillo del dado 
SONO Define el carácter gráfico de los puntos [a] y fija los colores 
6000 Emite el sonido 


Detalles de programación 


La esencia de un programa de dado es la generación de números 
aleatorios. De hecho, este programa utiliza números aleatorios para 
dos fines distintos. En primer lugar, en la línea 110 se utiliza la función 
RND para seleccionar un número “r”, entre el uno y el seis, que 
determina qué cara del dado aparecerá en la vuelta siguiente. Esta 
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información se utiliza en la subrutina de impresión (que empieza en la 
línea 1000). Según sea el valor de “r”, el programa irá a uno de los 
números de línea 1100, 1200, 1300, 1400, 1500 ó 160N. La linea 1100 
imprime un punto, la 1200 imprime dos puntos, y así sucesivamente. 

La segunda utilización del generador de números aleatorios es para 
darle un suspense real al dado del Spectrum. Cuando alguien arroja un 
dado, éste rodará durante cierto tiempo y, después, su velocidad se 
reducirá para pararse finalmente. Mediante la incorporación de las 
líneas 60-8N, el Spectrum imita ambas características. Se selecciona 
otro número aleatorio “t”, cuyo valor oscila entre el 6 y el 16. Este 
número señala el número de vueltas que dará el dado y, cada vez que 
pasemos por la pausa (línea 8), aumentará el intervalo entre la 
aparición de las distintas caras del dado. 

Este programa utiliza color y sonido. Del color se ocupan las líneas 
5080-5120. Sin embargo, del color en que se imprimirán los puntos 
(rojo), se ocupa la línea 9. Los puntos se hacen desaparecer impri- 
miendo sobre ellos con el color del dado (amarillo). Este color se fija 
en la línea 2010. Puede que tenga que poner atención para oír el ruido 
que el dado hace al rodar, esto se debe a que el sonido proviene del 
altavoz que hay en el interior de su Spectrum. Las líneas 6000-6020 
son las responsables de este sonido parecido al de un dado. 


Mejoras posibles 
Este programa puede incorporarse en gran cantidad de juegos. 


Puede diseñar un juego (vea, por ejemplo, la quiniela hípica) en el que 
se realicen apuestas sobre la cara del dado que va a salir. 
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El Dado 


t 
(RND+5) +1 


RND+10+S5 


70 FOR iz1 TO 
SUB_ 1000 


3 REM Dado del Spectrum 
GO TO 50 


30 PAUSE 1+i 


150 


Programa 
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qiqidi di 41414 re 
NuUININVIOWIY 
323323323273 


ts uste gs 
AIN AA 
ODODONDOZTJ 
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tw 


DIONISIO DN 
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50900 UUT 254,16 
s010 GUUT 254,0 
5020 RETURN 


11 
Salto del Barranco 


Este es un juego de gráficos en color, con una diferencia (no 
pequeña), y es que incorpora una combinación de gráficos de baja y 
alta resolución. El objetivo del juego es que usted participe en la acción 
de cinco intrépidos exploradores que tratan de salvar un barranco: bajo 
cuyas empinadas laderas fluye un torrente caudaloso. Sólo existe una 
opción y es cruzar el río valiéndose de una cuerda. La cuerda se mueve 
constantemente, de modo que cada hombre debe correr hacia ella y 
saltar para cogerla. Cualquiera que no llegue a la cuerda caerá en el río 
y desaparecerá. ¡Escuche los efectos sonoros del hombre cayendo hacia 
el río! 


Reglas del juego 
Este juego se reduce al problema de calcular el tiempo; tendrá que 


decidir cuándo empieza cada hombre a correr hacia la cuerda. Es 
necesario llegar a la cuerda cuando ésta vuelve, y cada hombre puede 
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saltar una distancia igual a su altura. Antes de iniciar una carrera, 
puede esperar tanto tiempo como quiera y, cuando esté preparado, 
pulsar cualquier tecla para iniciar la carrera. 


Indicaciones sobre el listado 


Como este programa emplea gráficos de alta resolución, usted verá 
que utiliza algunos comandos (PLOT, DRAW y OVER) y algunas 
funciones (SIN, COS y PI) con las que no estará familiarizado. Recuer- 
de que todas ellas se introducen pulsando una sola tecla. 


Estructura de subrutinas 


20 Inicializa los agrupamientos 
40 Bucle principal del juego 
1500 Mueve la cuerda 
2000 Calcula la posición de la cuerda 
3000 Imprime el barranco 
4000 Dibuja al hombre en el extremo de la cuerda 
SOON Rutina para el salto del hombre 
6000 Prepara al próximo hombre 
7000 Rutina para la caída de los hombres al río 
7500 Establece el juego 
9000 Final del juego 


Detalles de programación 


En este juego hay diversas características importantes. El primer 
detalle a observar es cómo la subrutina 2004) va calculando las coorde- 
nadas de las posiciones de la cuerda y cómo, a continuación, se 
almacenan éstas en los dos agrupamientos “x” e “y”. Después se utilizan 
constantemente estas posiciones para trazar el movimiento de la cuer- 
da. Esto evita el tener que calcularlas cada vez que se necesiten y, así, 
se mejora la velocidad del programa. Esta técnica puede aplicarse en 
cualquier situación en la que sea preciso un movimiento rítmico o 
periódico. La otra técnica interesante está en la subrutina 4000, la cual 
dibuja al hombre utilizando gráficos de alta resolución, en lugar de 
utilizar gráficos de baja resolución definidos por el usuario. Esto 
significa que el hombre puede aparecer en cualquier lugar de la panta- 
lla y que, por tanto, lo podemos mover suavemente, en lugar de 
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imprimirlo mediante un conjunto de posiciones de caracteres y que, 
por ello, producen un movimiento brusco (como a tirones). 


Programa 


10 REM Salto del barranco 


49 GO SUE 3000 

30 GO SUB 2000 

50 GO SUB 7500 

70 GO SUB 56008 

30 60 SUB 1500 

90 IF hombres=0 THEN 

GO TO Yuu0 
108 60 TO 8 


1500 FOR t=1l+r TO Nn-rf 

1510 PLOT 127,150 
20 DRAUWU ESA 
25 LET s=1: 60 SUBE 4000 
30 PLOT 127,159 AN 
49 DRAW OVER 1;x (1) ,Yy(1t) 
su =1 THEN LET 5s=82: 

q E 4009 


EXT 

1F c=1 THEN GO TO 168350 
FOR t=ñn-r TO 1+r STEP -1 
PLOT 127,15 e 


PR PRrererrerre PRrrererrre Rrrrrerr 
LS SS ASIDAAEAAA DARAN CATACACA LO 
are o-J t s y 


a 
2 
0 
0 
D DRAW x1t) iS 
S LET s=3: ú ¿08 4000 
0 PLOT 127,180 
O DRAW OVER 1;x(t),y1t) 
0 IF ¡=1 THEN LET s=4: 
Go 35Uu5 4000 
50 NEXT t 
70 RETURN 
30 LET salto=salto+1 
90 LET dx=iísalto-1) *+10+5 
00 LET dy=S0 
14 GO SUB 4020 
39 LET Ccxu 
VD LET hombres=zhombres-1 
35 TF hombres=0 THEN 
Go TÓ 6080 
740 G0 S5UB 6009 
750 RETURN 


Tn=0 
2019 FOR L=-P1/6 TO PIS STEP .1 
2020 LET n=n+1 
30 LET xinm)=-105+SIN t 
40 LET yin)=-105*c003S t 
S90 NEXT _t 
$0 RETURN 
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¡AISIATATATA 


(WOW LID CJ Y O 


n 
Lo] 
- 
a 


DO OIC EN E 
60660060656 
606050 


1100 JON PC 
a 
4 


DD amm 
66 SOCGGaAG 
4 GM died a 
6 (M1 GOGO 


PAPER 7? 

INK Y 

CLS 

FOR i=17? po e 

FOR j¡=0 TO 

1F ¡>10 AÑO 5:20 THEN 
Go_TO 3090 
PRINT AT i,J; 1NK 4, "(181' 
GO TO 3110 

1F_1<19 THEN 60 TO 3110 , 
PRINT ATi adi APER ¡Y F 
NEXT y 

NEXT 1 

LET c=8 

LET ¡=0 

RETURN 


1F c=40 THEN 60 TO SUu0 
LET dxz=127+x1t): 
LET dy=150+y (1) -2 


fUX MX O 


R 
RETURN 


1F INKEYS%="" AND ¿=0 THEN 
PAUSE 15: RETURN 


ES sU8 “4020 
ABS E xU0t)J3<10 
No 5= THEN LET cal: 


IF mx<160 THEN G0 TO 7000 
RETURN 
LET my=5S0 
LET mx=240 
LET dy=my 
LET dx=zmx 
LEPE 
GO SUS Z 
PRINT AT 0,1;"hombres"; 
mbres hombres" 

PRINT "esperando 
e Pasados a rásanE” 
PRINT RAT 2,4;hombres; 
TRB 15S,53a1Lto0;, 

; 1305 


RETURN 


NroODno-JMAPiNIO 
oi ollo fotoo lolololololols 


$ ía 


DS! 


dy Y ad dd ad rd dd 4 9 
Fe? PPPOGOGOCOOGO 


AS SIA 
TOTO TO OIT! 


14] 
«l 
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60 SUB 4020 


GO SUB 4082 

IF Ed pd THEN GO TO 7010 
BEEP. 1, 

LET pEerdidos=perdidos+1 
LET c=0 

LET ¡=0 

LET hombres=zhombres-1 
IF hombres=0 THEN 

GO TU 56060 

GO SUB 6008 

RETURN 


LET hombres=S 
LET perdidos=0 
LET saltoz=0 
LET j¡=0 


=Q 
T_f=INT (RND%4) 
PRINT AT_15,0;" $: 


a 

RETURN 

INPUT "Ha perdido "; 
iperdidos);," hombres." 

"7 JUGamos otra vez ? "¡as$ 
IF a$="3" THEN 60 TO 60 
INK Y 
PAPER 7? 

LS 
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12 
Captura del Alfil 


Gano el alfil 


Este juego se realiza sobre un tablero de ocho por ocho cuadrados 
y el objetivo del juego es atrapar al alfil y evitar así que éste alcance el 
final del tablero. Para conseguirlo dispondrá de dos, tres o cuatro 
peones (el número se determina aleatoriamente), que pueden moverse, 
diagonalmente, un cuadrado cada vez, y sólo hacia arriba del tablero. 
El alfil se mueve también, diagonalmente, un cuadrado cada vez, pero 
el movimiento puede ser hacia adelante o hacia atrás. 


Reglas del juego 


Al principio del juego sus peones (dos, tres o cuatro, según sea su 
suerte) estarán colocados en la línea inferior del tablero, y el alfil en la 
línea superior del mismo. ¡Le toca mover a usted! Observará que uno 
de los peones está parpadeando. Este es el peón que está preparado 
para ser movido, pero si quiere que sea otro, pulse cualquier tecla y el 
parpadeo pasará al peón siguiente, en el sentido del movimiento de las 
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agujas del reloj. Pulse diversas teclas para observar cómo se lleva a 
cabo esta operación. Cuando haya decidido qué peón va a mover, 
pulse la tecla con flecha hacia la izquierda, si desea mover diagonal- 
mente hacia ese lado, o pulse la tecla con flecha hacia la derecha, si 
desea mover diagonalmente hacia allí. Cuando haya movido, el alfil lo 
hará automáticamente y ¡le vuelve a tocar a usted! El Spectrum le 
presentará un mensaje cuando, bien usted o el alfil, haya ganado el 
juego. Pero si desea renunciar al juego, pulse la tecla “r”. Aunque usted 
pulse esta tecla por error, el Spectrum le dará la oportunidad de 
reconsiderar su decisión y entonces tendrá que responder “sí” o no” a la 
pregunta “¿Renuncia?”. 


Indicaciones sobre el listado 


La sentencia IF de la línea 101 parece como si no fuera correcta, 
pues no incluye los signos de relación. Sin embargo, es correcta, pues 
los valores almacenados en el agrupamiento son “1” ó *(” y el Spectrum 
los trata como si fueran los valores “verdadero” o “falso”. Observe que 
tiene que colocar dos espacios en blanco entre las comillas de la línea 
2000) y las de la línea 5504. También en las líneas 7920 y 7060 debe 
haber dos espacios; en el primer caso, delante de los dos caracteres 
gráficos “a”, y en el segundo tras los dos caracteres gráficos “a”. 


Estructuras de subrutinas 


20 Inicializa las variables 
SY Bucle principal del juego 
1000 Lógica del movimiento del alfil 
SONY Movimiento de los peones y validación de sus movimientos 
6000 Selección del peón a mover 
6500 Posición inicial del parpadeo 
6600 Finaliza el parpadeo 
7000 Dibuja el tablero 
7500 Dibuja las posiciones iniciales de los peones y del alfil e iniciali- 
za el tablero 
8000 Define los caracteres gráficos 
9000 Fin del juego 
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Detalles de programación 


Observe que si bien el programa es en blanco y negro, el tablero se 
compone de cuadrados blancos y cuadrados con un sombreado en 
negro, lo cual le proporciona al tablero un aspecto particular. Esto se 
define al principio de la subrutina 800. Observe también cómo con las 
subrutinas 6504) y 660 se consigue que los caracteres que hay en la 
pantalla empiecen o terminen de parpadear. Esto se consigue manipu- 
lando el área de memoria de los atributos (ATTR). 


Programa 


18 REM Captura del alfil 


20 DIM d(10,10) 
30 DIM x1(4): e3N de 
40 DIM a(4): IM (4) 
50 GÓ SsuB 30009 
60 60 SUB 7000 
70 LET hsINT (RND+*3) +2: 
GO SUB 7S00 
30 GO 35U6 60800 
90 GO SUB 1000 
1009 660 s50 
1900 PRINT AT 21,0; 
"Mueve el alfil" 
1010 IF 4(qi+2,9j+2) 
AND gq1+2,97) AND di ) 
(91 ,94u+ q1,494u 
THEN GO +d Sen 
1020 LET n=1 
1030 GO SUB 3000 
1038 IF SS OR qi+*n>5 THEN 
Oo TO 1100 
1940 IF d(9i+n+1,9j+m+1) THEN 
GO 35UB 2500 
19590 IF d(qi+n+2,qjy+m+2)=1 
AND d(Qi+N,9J+MHZ) =1 
AND see AND qj>1 THEN 
=-ñ 


1100 59 ye a +2 THEN 
1110 1E dieai, AND 0jaQyj THEN 
CET n=SGN (RND=-.8): 
o 10385 
LET e E LET 0jyz=zQqu 
Qqy . 1.» 


AT qy+1,ax;r  * 
LET QX 29X+N+2 


a e 


UB MPUNAWV 


66 6066600 Au UEG 
ON »ProGcdar? gun roOn0o 
om 6ed6o6S SAS 06 


00 ODO 


Captura del Alfil 


IF_qj28 THEN GO TO 2500 
RETUAN 


AAA 1) <>1 THEN 
Qi+n+1,qj+m+1) <> 
RETURN 

LET nua-m 

1F Qj<84 TMEN LET n=1 

1F díqi+*n+1,39Iy+mM+1)<>1 THEN 
RETURN 


ET nz-n 

RETURN 

LET n= (q4i<5)-(qi>=5) 

LET r=RN 

IF 23>6 THEN RETURN 

IF r>.S AND qi>3 THEN 

GO TO 3050 

IF q3i>7? THEN GO TO 3035 
1F (d(91+3,9,/+3) =0 

UR diqi+2, qj+3) 20) 

AND di qi+2 q NES THEN 
e e 

IF qi<4 OR E NFHEN RETURN 
1F (d(qi-3,q,+3)=:0 

GOR d(qi-2 ¿dio 

AND díqi 2,9442) 20 THEN 
LET n=1: 

IF r>.S THEN 60 TO 3025 
RETURN 

LET a31thm) =a (hm) +m 

LET bihnm)=bí(hm) -1 

IF dialhm)+1,b(hm) +1) <>0 
THEN GO TO 5100 
LET dia (hm) -m+1,b(hm) +2) =0 
LET día lhm)+1,bí(hm)+1)=1 
GO TO 5500 

LET a (hm) =3 (AM) —m 

LET b(hm)=bihm)+1 

BEEP _1,-10 

GO TO 60080 

PRINT AT —3gyíihm)3,x (hm); 
FLASH 0," a 

AT yíihm)+1,x1i0hm),;" di 
LET yihm)=9 (hm) -2 

LET Xx (hm) =x (hm) +M42 
PRINT AT —3yihm)3,x (hm), 
FLASH 1," [9] (iJ", 

T yihm)+1,x (hm); [hh (y]” 


A 
RETURN 
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5000 PRINT AT 21,8; 
"mueve usted de 
REM_3 espacios 

6005 BEEP .1,6 

c010 LET mb= INES 

y IF THEN GQ _TO 5010 
6025 IF 
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21,0; 
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Jugamos 
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THEN RUN 


espacios 
90109 GO TO 3900 
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Ed 
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3000 PRINT AT 21,0, 
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REM 
"Gano e 


NT "Adios" 
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13 
Tiro de Pichón 


Pajaro 2 


Para este juego necesitará toda la práctica de tiro que pueda desear, 
y en este programa verá los vuelos de pájaros más fantásticos que 
pueda imaginar. Sin embargo, en algunas ocasiones conseguirá hacer 
blanco. Los componentes de este juego son sencillos; un cielo azul con 
una nube blanca, un pájaro volando de izquierda a derecha, y la mira 
de su fusil. El objetivo es muy sencillo, alinear la mira de su fusil con el 
pájaro y disparar. Pero conseguir hacer blanco no le resultará fácil. 
Esto se debe a que, cada vez que usted dispare, su fusil se desviará 
hacia un lado o hacia el otro y tendrá que volver a apuntar al pájaro 
antes de intentar otro disparo. Un problema adicional es que el pájaro 
(y también su mira) desaparecerá cuando llegue a la nube. Usted puede 
seguir disparando, pero no podrá ver lo que está sucediendo. Aparece- 
rán un total de cinco pájaros volando por el cielo, y no hay límite en el 
número de disparos que usted pueda realizar. Al final del juego verá el 
número de veces que acertó a cada pájaro y el número total de 
aciertos. Hay un sonido para cuando usted dispara el rifle y otro 
sonido distinto para cuando consigue un blanco. Cuando acierte apare- 
cerá la palabra “Blanco” a la izquierda de la pantalla. 


84 Spectrum Libro de Juegos 
Reglas del juego 


Para conseguir un blanco tendrá que alinear su mira con el centro 
del pájaro. Utilice las cuatro teclas con flechas para mover la mira y 
pulse la tecla *f para disparar. Hay cinco pájaros y tiene que acertar a 
cada uno tantas veces como pueda. 


Indicaciones sobre el listado 


La línea 45 finaliza con AT 0, 5. El efecto de esto es conseguir que 
la siguiente línea que se imprima esté desplazada una línea de la parte 
superior de la pantalla. Hay dos espacios en blanco entre las comillas 
de la línea 3040, cuatro en la línea 3059 y tres en la 3/60. 


Estructura de subrutinas 


20 Bucle principal del juego 
1000 Traza la cruz 
2000 Mueve la mira 
3000 Dibuja la nube y establece el juego 
4000 Traza el pájaro 
SOON Dispara, comprueba si acertó y desvía la mira 
8000 Calcula el camino del pájaro 
9000 Fin del juego 


Detalles de programación 


Este es un juego con gráficos de alta resolución. La mira del rifle se 
traza, en la subrutina 1000, mediante PLOT y DRAW. El pájaro se 
traza, en la subrutina 4000, mediante una colección de instrucciones 
PLOT. La utilización de gráficos de alta resolución permite que los 
movimientos del pájaro y de la mira sean mucho más suaves y más 
completos que los que se podrían conseguir con gráficos de baja 
resolución. En la subrutina 5M/0 se utiliza POINT para descubrir si se 
ha alcanzado el objetivo. Observe el amplio uso de OVER para trazar 
y borrar las figuras de alta resolución. También es interesante observar 
la forma en que se calcula el camino del vuelo del pájaro y se almacena 
en un agrupamiento “b”, para utilizarlo posteriormente en el programa. 
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Mejoras posibles 


Para hacer este juego más difícil, podría añadir más de una nube, y 
permitir que el pájaro pudiera volar por más de un camino a través del 


cielo. 


Programa 


O 
G desc 


REM Tiro al blanco 


¿S ¡"Pajaro ";9; 


NKEY $ 

vo 

¡): 60 SUB 4000 

AND x>10 THEN 

AND y>10 THEN 

' AND y<160 THEN 

" AND x<240 THEN 

dd y=b(i): 
THEN 60 SUB 5000 

09009 

fin=0D: 
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3988 CLS 

3020 LET J=INT (RND43) +1 
3030 LET r=INT (RNQ+l0) 
3048 PRINT Td 40 INR 7 


REM 2 espacio 
3050 PRINT Aro I4Lo pS; INK 7; 


REM 4 espacios 
3060 PRINT AT J+t2,r+10, INK 7; 


R co? . 
REM 3 espacios 


30309 LET fin=0 

3099 LET x=INT (RND*60) +40 
3109 LET _y=?S 

3110 PAPER S 

3120 INK 0Q 

3140 L i¡i=3 

3150 69 SUB 1900 

3160 LET jabti3): GO SUB 4000 
3170 RETURN 


40909 INK_3S: PAPER 3 

4005 PLOT i¡-3.,J+2 

4919 PLOT i¡-2,J+2 

4920 PLOT i-1,y+1 

4939 PLOT i,j 

4049 PLOT i¡i+1,y+1 

4050 PLOT ¡+2,y+2 

4060 PLOT ¡+3,y/+2 

4079 PLOT E 

40389 IF ¡>250 THEN LET fin=1 


5000 BEEP .1,- ze 
sa10 1F POINT Y)<>1 THEN 
LET iO iT RNDFZO) : 
RETURN 
0 LET xzx+10-INT (RND+2Z0) 
0 BEEP .2,-5 
5040 PRINT "Blanco" 
50S0 LET hi9)=h1(9)+1 
5060 RETURN 
3000 LET blanco=0 
2020 PRINT AT 19,2; ¿1 IRO"; 
BLANCO" 


S4 
LE? 611) sis - (1258-1)% 


MU UU 
G66 Goa 
Y Ma Gira 
606 Oca 


110) 
Lo] 
o 


YO AC 
FG6GU 
Gucw-J 
OL 
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CLS 

LET t=0 

FOR i¡=1 TO S 
PRINT AT i+5,10; "Pajaro "; 
ij", blancos "¡hti 

LET t=zt+h(11 

NEX 


“Blancos= ";t 

INPUT "?Jugamos otra vez", 
“ (s/fmi? "¡as 

IF a35$="5" THEN RUN 

PRPER 7 


14 
Frontón Arco Iris 


aciertos 1 


Esta es una versión llena de colorido del popular juego de frontón. 
En una TV de color se encontrará jugando en un campo blanco, rojo y 
amarillo, rodeado por un borde azul. También está dotado de sonido, 
un sonido alegre cada vez que la bola golpea contra los bordes del 
campo o contra la raqueta, y un sonido triste cuando usted no llegue a 
golpear la bola. Otra característica es que, según aumente su habilidad, 
el juego será más difícil, y según empiece a fallar, el juego será más 
fácil. Es decir, el Spectrum le retará a un juego cuya dificultad depende 
de la habilidad que usted demuestre. 


Reglas del juego 


Al principio del juego, la raqueta estará situada en el centro de la 
parte inferior de la pantalla. Usted puede moverla hacia la izquierda o 
hacia la derecha, utilizando las teclas adecuadas (5 y 8). Cada vez que 
acierte a responder dos veces consecutivas, la raqueta se desplazará 


Frontón Arco Iris 89 


una posición hacia arriba, lo cual hace que sea más dificil devolver la 
bola. Si falla una bola, la raqueta retrocederá una posición haciendo, 
así, que sea más fácil devolver la siguiente. Usted acumulará un punto 
cada vez que acierte y se le servirán un total de 10 bolas. En la pantalla 
se le informa continuamente del número de aciertos que ha conseguido 
y del número de bolas que se le han servido. 


Indicaciones sobre el listado 


Los caracteres gráficos utilizados para la raqueta se obtienen pul- 
sando las teclas CAPS SHIFT y 8, en modalidad gráfica. Observe que 
en la línea 11M ha de teclear unas comillas, después un espacio en 
blanco, después tres de estos caracteres (CAPS SHIFT y 8), seguida- 
mente otro espacio en blanco y finalmente otras comillas. En las líneas 
17) y 470) se necesitan cinco espacios en blanco, entre comillas, para 
hacer desaparecer la raqueta. 


Estructura de subrutina 


5 Establece los colores e inicializa las variables 

100 Bucle principal, imprime la raqueta y la línea del marcador 

200 Efectúa el movimiento de la raqueta 

300 Mueve la bola y controla el rebote contra las paredes 

400 Controla el rebote de la bola contra la raqueta y mueve la 
raqueta hacia arriba 

S0Q0 Imprime las paredes de la pista 

800 Fija los colores de la pista 

930 Define el carácter gráfico para la bola 

2000 Fin del juego. Imprime la puntuación final, ofrece volver a 

jugar y vuelve a ejecutar el programa o borra las imágenes de la 
pantalla. 


Detalles de programación 


En este programa se utilizan los comandos de “color” de forma 
interesante. En las líneas 11M y 36) se encontrará con “PAPER $”. El 
color 8 es transparente, en el sentido de que sea cual sea el color de la 
pantalla, él se transparentará. Así, utilizando “PAPER $”, tanto en la 
subrutina de la raqueta como en la de la bola, el color de fondo 
permanece inalterado. Puede que en sus propios juegos encuentre útil 
el carácter gráfico definido para la bola en la subrutina 930. 
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Programa 


” 


Pm 


Pue 
666N Gu 


su 


a 
o 


gua Y 
QN-? 
000u 


REM Fronton arco iris 


POR9ER 1: PAPER 7: INK Y 
LET h=0: LET ht=0: LET d=139 
ler bola=Ú 

GO SUB 800: 60 SUE Su 

LET bola=bola+1 x 

y Ad THEN 60 TU 2000 


1 
A e 10: LET y=d 
INP 


"aciertos "¿ht 
GO 3U5 300 

GO SU5 200 

E6 16118 THEN LET yead: 


PRINT Ar YX; PAPER 8; 
o s espacios 

PRINT AT b PAPER 38," " 

IF 4:19 THÉN'LET dad+i 

LET h=0 

GO TO 20 


Y 6 
CN D x>0 THEN 


" AND x<27? THEN 
GEL 
RETU 


Zu pi “ne 
:X 


a 
$ 
LE as 
Xx 
R 


PRINT AT b,a; PAPER 3; 
INK 8, .. .. 

LET aza+v 

LET b=b+u 

IF a=30 OR a=1 THEN 
LET v=-wv: BEEP ,1,1S 
pa b=1 THEN LET w=-04w: 

EEP ¿15 


TF b+4=y THEN GO_TO 400 
PRINT AT b,a; PAPER 3," [al" 
RETURN 


MPA AaNDORIO 
GO 000 
C00-J- DAIANPOrO 
666 GOGO 
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LET rua 
EN ELA OR rn>3 THEN 
GO TO 360 


.1,15 
LET h=h+1: LET hta=ht+1 


:. : =d- 
PRINT AT y Xx; PAPER 3; 
' o: En S espacios 
G0 TO 309 


FOR i=8 TO 31 
PRINT AT 0,1; PAPER 07%" 


NEXT 

FOR ¡zo TO 20 

PRINT_ AT i,0, PAPER 9;," *"; 
AT 12,31," ” 


.r 


N 1 
RETURN 


PRINT AT 

LET c=2: ¿y? ¿us sso 
LET cz6: GÓ SUB 3850 
GO SUB 93 

RETURN 

FOR iz1 TO 7:32 
PRINT PAPER c;" "; 
NEXT 


RETURN 


POKE USR "a"+0,BIN vul11109 
POKE USR "a"+1,BIN vl1111109 
POKE USR "a"+2,BIN 11111111 
POKE USR "a"+3,BIN 121111111 
POKE USR "a"+4,B1N 211111111 
PORKE USR "a'"+S,BIN 11111111 
POKE USR "a"+6,BIN v1111110 
POKE USR "a"+7,BIN 004111100 
PAPER 7 

RETURN 


PRINT AT A obtenido” 


PRINT "Adios" 


15 
Trineo 


En este juego ha de guiar su trineo por un camino aleatorio cuya 
dificultad puede seleccionar (hay cinco niveles de dificultad, de los que 
depende la anchura del camino). Si se estrella, escuchará un sonido 
lúgubre y cuando acabe el recorrido, el juego habrá terminado. Com- 
pruebe con este juego su capacidad para mantenerse dentro del ca- 
mino. 


Reglas del juego 


El trineo empieza el recorrido en la parte superior de la pantalla y 
automáticamente empieza a desplazarse el camino hacia arriba. Usted 
ha de conducir el trineo, utilizando las teclas con flechas hacia la 
izquierda y hacia la derecha, y ha de procurar que no se estrelle contra 
los bordes del camino. Al principio del juego ha de seleccionar el nivel 
de dificultad, con el que determinará la anchura del camino, el nivel 1 
para el camino más ancho y, por tanto, más fácil, y el 5 para el más es- 
trecho y, por tanto, más dificil. 
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Indicaciones sobre el listado 


Este juego utiliza un carácter gráfico definido por el usuario y un 
carácter gráfico del teclado. Ambos aparecen entre corchetes. No 
teclee los corchetes. Sólo ha de pulsar la letra “b” o el número “5” 
indicados, pero en modalidad gráfica. Observe que al final de las líneas 
132) y 3100 ha de teclear dos apóstrofos. 


Estructura de subrutina 


S00 Define el carácter gráfico del trineo 
1000 Imprime la pista y el trineo 
3000 Desplaza hacia arriba el contenido de la pantalla (Scroll) 
5000 Mueve el trineo 
7000 Estructura del título 
8000 Mensajes de Ganó/Perdió 
9000 Fin del juego 


Detalles de programación 


La impresión de que el trineo se mueve hacia abajo se logra, en 
realidad, desplazando el contenido de la pantalla hacia arriba (Scroll), 
pero el trineo sólo se mueve hacia la izquierda y hacia la derecha y está 
en una posición vertical fija. 

En la línea 532( se utiliza ATTR (atributo) para comprobar si el 
trineo se ha estrellado contra los bordes del camino. Esto se realiza 
comprobando si en la siguiente posición en la que se va a imprimir el 
trineo hay, o no, color. Si el color de esta posición no es el blanco, 
usted se habrá estrellado. 


Mejoras posibles 


Si encuentra que este juego es muy rápido, puede reducir la veloci- 
dad, introduciendo una pausa (PAUSE) en la subrutina 240/. 
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Programa 


ul 


REM Trineo 


AMO OIC 

MP Oro mn 

65000660 

FTUDOUDOGO 
++++ 
JARED 
00 00 00) 00 1 MODO 
HHHHRAHHAHHAA 
Z222222Z 
0660rrO06 


mprime la pist 
5: INK 7 
NC*10) +5 

x +2 

T H INK Y 
+ 
+(SGN (RND-, 

THEN LET x= 

THEN LET x=0 


INK 


NEXT 
PRINT AT yb,xb; 
PAUSE 


20 

N (RND=-. 

N LET x= 
Er x=0 

XxX; INK 

sj A E 


m 


ZOBDUDAHAS 
MOFDonan 
O : ZM6 


FOR z=1 TO 20 
PRINT_AT 21,1** 
GU SUB s0eB0 


NEXT z 
GU SUB 38800 


INIPTEIDIA 


440 


GOmMOG 
DOD : :Tin < 


CONCA NONE 
ONO->ro 
ne 
SOCOG 
H3( 0NFHA”: 


0566000006090 


¿"0S3"; 
E 

1 

2; , [(b] ,t 


53) 
31 


0;" (51; 


19] 


Trineo 


ZZM 


id su trineo" 
de una '” 


0 :DUUH 
o 


Ho: 
MmmMOTAaAaA ZUPATDDDZ 


44 
£ 


de 


Mer TirD AHH TIA 
— Cm 


rabir-n JA 


OÓ-rÓDc.r cm 


4 -. 
Japan 18-10-00 
e 


IO 2 ODA e 
Q 


A A 


DEOOH=3:s 


PRINT AT 20,1; INK 0; 
"Enhorabuena, lo consiguio 
GO TO 9000 

PRINT_AT 20,1; INK 0; 


"Se ha estrella 
BEEP 1,-10 


INPUT “?Jugamos otra vez"; 
" (s/n)? "¡bé 

Ir bg(1)="5" THEN RUN 

INK 

PAPER 7? 


CcLS 


16 
Sopa de Letras 


Mar. X=2C.CT4r sa 
CE£IrDXIXAINCOTNZ 
TOAATEC INC. rn” 
2 CIO r THANK Es. 
ETSANDA A+ AC2OOOL 
DEAQÓONITCOAC Em mn 
FCBANIC ADMIN. 
23C.DIX 4604 T<.NcC.£ COD 
“€ UC. CCOTOÓOcL. 
WC. 230 N<MS0 AA DOI 
CANO CABO 
DIVNNOAL > END A” 
a A A 
ACINAIA A ADICTO IM rm 


W 
Jj 
y 
n 
K 
P 
L 
Z 
m 
1 
ñ 
a 
h 
L 
a 


Este es un juego con el que puede jugar toda la familia y, realmen- 
te, es un reto aun para el más perspicaz y con los mejores ojos de lince. 
El Spectrum le invita a que introduzca una lista de hasta diez palabras, 
cada una de un máximo de diez letras. Cuando las haya introducido, el 
Spectrum las dispondrá en una cuadrícula de quince por quince y 
rellenará después los espacios libres con letras elegidas al azar. Las 
palabras que usted haya introducido aparecerán en líneas horizontales, 
verticales o diagonales, y pueden estar escritas al derecho o al revés. 
Cuando el Spectrum las haya escondido, camuflándolas entre otras 
letras escogidas al azar, será como buscar una aguja en un pajar. Si 
usted desea simplificar la búsqueda, puede optar por ver la disposición 
antes de que se añadan letras al azar. Esto le proporcionará una 
oportunidad para descifrar el puzzle. Además, puede recurrir a otra 
ayuda. Puede pedir que, al lado del puzzle, el programa le recuerde la 
lista de palabras que han sido introducidas. Pero es posible que le 
sorprenda lo difícil que es, aun así, encontrarlas. 

El objetivo de este juego es encontrar todas las palabras, utilizando 
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un cursor parpadeante que ha de colocar encima de la primera letra de 
la palabra que crea que ha identificado. Si ha acertado, acumulará un 
punto, en caso contrario escuchará un sonido lúgubre. 


Reglas del juego 


El Spectrum le guiará en las primeras etapas de este juego, pregun- 
tándole, en primer lugar cuántas palabras desea introducir, y después 
pidiéndole que teclee cada una de ellas. Después, el Spectrum tendrá 
que crear el puzzle, lo cual lleva cierto tiempo (tanto más cuanto más 
largas sean las palabras que haya introducido). El Spectrum le dirá que 
está “trabajando” y, por tanto, no debe pensar que se ha olvidado de 
usted. Cuando haya terminado, le preguntará si desea ver la disposi- 
ción de las palabras. Si prefiere jugar sin ningún tipo de ventajas, está 
en su mano rechazar esta oportunidad respondiendo 'n”. Análogamen- 
te, usted puede responder “sí? o 'no” a la pregunta siguiente, la cual le 
da opción a que en la pantalla se le recuerden, junto al puzzle, el 
conjunto de palabras que hay escondidas dentro de él. Cuando aparez- 
ca el puzzle, verá que en la posición superior izquierda de éste aparece 
un carácter brillante. Este es el indicador que usted ha de utilizar para 
seleccionar las palabras. Puede mover este cursor hacia la derecha, 
izquierda, abajo o arriba, utilizando las teclas adecuadas (8, 5, 6, 7). 
Tiene que colocar el cursor en la letra que usted crea que es la primera 
de una de las palabras buscadas. Cuando el cursor esté en esta posi- 
ción, teclee la letra “p”. Después, el Spectrum le pedirá que teclee la 
palabra que usted cree que ha identificado. Si ha acertado, acumulará 
un punto, pero si se equivoca, escuchará un sonido indicador. Cuando 
haya completado el puzzle, verá el mensaje “¡Ha descubierto todas!” Si 
desea renunciar, teclee la letra *“r” y el Spectrum le dará la oportunidad 
de renunciar o de seguir jugando. 


Indicaciones sobre el listado 

Parece como si la línea 782) contuviera la mayoría de los trucos de 
este programa. Entre las comillas hay diez espacios en blanco y, a 
pesar de su rara apariencia, usted tendrá que teclear en esta línea, 


(TO 10—LEN wS) 


(no tiene por qué haber nada delante del TO). En este programa se ha 
utilizado la mayúscula “L” como nombre de un agrupamiento; si usted 


98 Spectrum Libro de Juegos 


quiere, puede escribirlo en minúsculas. En las líneas 3180, 5020, 5030, 
y 6050, hay un espacio en blanco entre las comillas, así que tenga 
cuidado no vaya a introducir una cadena nula en lugar de esto. 


Estructura de subrutinas 


29 Bucle principal del juego 
1000 Pregunta por las palabras que va a introducir 
2000 Busca la palabra más larga de las que queden en la lista 
3000 Construye el puzzle 
5000 Imprime el puzzle 
7009 Controla el cursor 
7500 Le pregunta cuál es la palabra que cree que ha encontrado 
7600 Rutina para palabras acertadas 
7800 Comprueba la palabra en la lista de palabras 
7900 Comprueba la palabra en la sopa de letras 
8000 Define el punto que se utiliza en la cuadrícula y pone a cero el 
marcador 
9000 Fin del juego 


Detalles de programación 


En este programa se utilizan algunas técnicas interesantes. Las 
palabras se introducen en la cuadrícula eligiendo al azar el punto 
inicial (líneas 3120-3130) y seleccionando, también al azar, la dirección 
en que será colocada (líneas 314-315). Después, para cada letra de la 
palabra, se comprueba si el espacio donde va a ser colocada está vacío 
u ocupado por la misma letra, y si así sucede, se coloca aquí la palabra. 
Esto permite que dos o más palabras queden cruzadas compartiendo 
una letra común. Si la palabra no puede introducirse en el primer lugar 
elegido al azar, el programa retrocede y selecciona otro punto inicial y 
otra dirección. Este procedimiento se repite hasta que todas las pala- 
bras quedan colocadas. 

En las líneas 7020, 7055 y 7100 aparece la función SCREENS. La 
función SCREENS se utiliza para averiguar cuál es la letra que ocupa 
la posición x,y de la pantalla; esta información se utiliza en estas líneas 
para volver a imprimir esta letra en la misma posición, pero con 
BRIGHT 1 o con BRIGHT Q, con brillo o sin brillo. Así es como se 
obtiene el cursor. 

La línea 1070) parece un poco extraña, pues direcciona a sí misma. 
Sin embargo, es completamente correcta. El programa no saldrá de 
-este bucle hasta que usted introduzca una palabra de diez o menos 
letras. 
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Mejoras posibles 


Si tiene una impresora, puede añadir una rutina que le permita 
obtener un listado de la sopa de letras, una vez que el programa la 
haya generado, y así poder llevársela para resolverla en otro sitio. Para 
conseguir que el juego sea más difícil, puede hacer que el programa 
acepte más palabras. Observe, sin embargo, que cuantas más palabras 
introduzca, más tiempo tardará el programa en generar la sopa de 
letras. Para simplificar el juego puede ir retirando palabras de la lista 
de palabras, según las vaya encontrando, o puede irlas marcando de 
alguna forma en la pantalla. 


Programa 


10 REM Sopa de letras 


28 GO SUB 1909 


cQ9 60 SUB 7000 


1000 DIM L$(10,10) 
1085 01M c110) 
a 

£ 


=0 
¿Cuantas palabras? " 


w 
1020 IF w<2 OR w>190 THEN 
SEEP .1,108: od TO 1010 
1040 FOR i¡=1 TO 
1050 PRINT AT S+1,3; 
SI NUBRATO “¡1 «0; 
10560 INPUT v$ 
1070 IF LEN u$>10 THEN INPUT 
imaximo diez letras! "¡w$: 
GO TO 1079 
1080 IF LEN v$<1 THEN 60 TO 1060 
0390 PRINT v$ 
90 LET o A 
LET AA WS 
NEXT 


RETURN 


Pp 
G 
[a 
o 
r 
m 
— 
p 


2000 LET m=0: LET ¡=0 
2010 FOR 2x1 TO yw 
2020 e THEN LET maciíz): 


2030 NEXT 2 
2040 RETURN 
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3000 DIM d5(15,15) 

3019 CELS 

5030 FOR iz1 TO y 

3090 60 SUB 2000 

3100 LET Le=c(,j) 

3110 LET cl(j)s 

3120 LET x=INT (RND*(15S-L1)+1 

3130 LET y=INT (RNDe* (15-L). «+1 

3140 LET v=INT (RND*3)-1 

3150 LET u=INT (RND*3)-1 

3155 IF U=0 AND v=8 THEN 
GO TO S3ldou 

3160 LET a=x: LET b=u 

3165 IF v<0 THEN LET aza+L 

31566 IF u<0 THEN LET bzb+*L 

3170 FOR Rz=1 TO L 

3180 IF d$ta,b)<>" ” 
AND_dK$(a,b)<>LS$(ij,K? THEN 
GO TO 3120 

3190 LET aza+v 

32090 LET_bz=b+u 

32810 NEXT ko 

3300 PRINT e trabajando" 

3310 LET a=x =4y 

3315 IF v<0 THEN LET a=a+L 

3316 IF U<0 THEN LET b=b+L 

3320 FOR k=1 TO L ] 

3330 LET d$ta,b)=LS$ijy,K) 

3544 LET az=a3+v 

3350 LET bz=b+*u 

3350 NEXT k 

3370 NEXT i 

33380 RETURN 


s008 CLS 

5005 FOR mal TU 15 

5019 FOR n=1 TU 15 

5020 1% dgimoni= - THEN 


PRIN med¿mody Lal": 
suse If d$imon) <>* * THEN 

PRINT AT m-1,n-1;d$(m,n): 
5040 NEXT 


n 
5050 IF Llista=0 OR m>10 THEN 
PRINT 


3US5 IF lista=1 AND m<=10 THEN 
PRINT TAB 20;L$im) 


NEXT _m 
RETURN 
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20 A Atar H ZU AN SOT RHN: MA 2 xx: 2 y dé 
AZ-DM lo. DYZ=-- MZ 46H Zé 4 zu nun«s zz 
A o Pu auJw-> 3d XxX AU DZO HA A A A TARA UO 
J--_300) Df 20 NI ZU HF-AZUO vw. 7 zu) 
Qu AX —a4xxamwo r F ErHkr HX Fr rre + HO 
Z ULODOOL €TuUuUZ OL iO wWasoc Oti OL OC Ot US e a UL ODO 
HN: HHODLULHTOZZH >: HH SY 300 JAMHQAUIOAH JH JA 3H HOLD 
GS 00 000 080 00 0 96093 900 0N 8 SY A O NO Y 
O A1N 1040 wr 0 DD HA OA 33 0N 0 P- 9 DM ma « 
S 0 9085 005 GA As 000 06 509 O Y QA OY «— 
Y 00 ap 9000 100 1010 Pape pj fe [e Pe fe fe Ple f- 


0 TO 7040 


THEN 
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LET A E E 5+1 

PRINF A 2,0 untos = *”, 
oa a 

BEEP ,2,20 

LET L$ipalabra)=" Ml 

1F puntos=w THEN GU TO 9509 
GO TO 7040 

LET acierto=0 


FOR i=1 TO y 

IF yu$+" A 

(CTO 10-LEN v$)'=L$ii) THEN 
LET acierto=1: 

LET Palabrazi: RETURN 


RETURN 


LET aciertoz8 
LET a=x+1 


c 
Dvd A -a007y) 


POKE USR "a" BIN VEVDUDVaA 
POKE USR "a"+21,BIN UyO0VaAD0a 
PORE USR "a"+2,5IN. 00000000 
POKE USR "a" BIN VeY11100 
POKE USR "a"+4,BIN 00911909 


POKE USR "a"+5,BIN 00000009 

PORKE USR "a"+6,BIN 00000000 

POKE USR "a"+7?,BIN 00000000 

LET ¿ENEE 

RET 

INPUT "?Seguro que no” 
puede encontrar"”' 

"mas palabras”? ",as$ 

IF a$11)<>"s" THEN RETURN 

CLS 

PRINT AT 3,8;"Puntuacion" 

" final = "¡puntos 

INPUT "Jugamos otra vez ", 

“"(s.:n)? "¡as$ 

IF a$="s" THEN RUN 

IF a$<>"n" THEN GO TO 9040 

STOP_ 

PRINT AT 13,8, 

"Ha decubierto tudas!” 

GO TO 3040 


V7 
Supermisil 


Resistencia del esc 


Su arma puede destruir cualquier cosa, si es que llega a darle. El 
único problema, en este juego, es asegurarse de que el misil llega a su 
objetivo, rápida y certeramente. El navío enemigo cruza la pantalla, 
procedente de la izquierda o de la derecha, y dispara implacablemente. 
Sus misiles sólo son vulnerables si el escudo protector está demasiado 
erosionado, en cuyo caso puede ser fácilmente destruido, incluso den- 
tro de la base. En otro caso es invulnerable al fuego enemigo, incluso 
fuera de la base. Si alcanza al enemigo, hará explosión en el momento 
del contacto, pero si falla su objetivo, se desintegrará cuando alcance 
las capas superiores de la atmósfera. Usted puede lanzar diez misiles y 
hay diez navíos enemigos. Cada navío enemigo mantiene una órbita 
estable hasta que usted lance un misil, así que usted puede permanecer 
dentro de la base, hasta que decida hacia qué lado y cuándo disparar. 
Pero cada vez que pasa un navío enemigo, su escudo protector va 
siendo destruido y, cuando sólo quede el 20 por 100 del escudo, el 
enemigo le podrá alcanzar con su láser. Este apasionante juego gráfico 
está acompañado de efectos sonoros y es bastante interesante. 
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Reglas del juego 


En este juego es importante observar continuamente cuál es la 
“resistencia del escudo” que hay actualmente, pues cuando esta cifra 
caiga por debajo del 20 por 100, usted será vulnerable al fuego ene- 
migo. Cuando el escudo esté así de erosionado, los rayos láser de los 
enemigos le pueden destruir en cualquier sitio que le alcancen, incluso 
dentro de la base de los misiles. El objetivo de este juego es alcanzar 
el mayor número posible de navíos enemigos y, por tanto, es impor- 
tante observar, al menos una o dos veces, la órbita de cada nuevo 
navío enemigo, antes de tratar de derribarlo. Para lanzar los misiles 
ha de abandonar la base. Esto lo consigue pulsando las teclas de flechas 
hacia la izquierda o hacia la derecha. Con ello situará al misil en una 
posición determinada, a la izquierda o a la derecha, y lo lanzará. Acuér- 
dese de calcular el tiempo que tardará su misil en alcanzar al navío 
enemigo, el cual seguirá imperturbable en su órbita. Al final del juego 
se le indicará la puntuación que ha conseguido y se le ofrecerá la posi- 
bilidad de volver a jugar. 


Indicaciones sobre el listado 


Observe que en la línea 3060 hay dos espacios en blanco tras el 
signo de porcentaje y antes de las comillas. Estos espacios desempeñan 
la tarea importante de borrar las cifras anteriores, ya que los números 
que se presentan en la pantalla van decreciendo y, por tanto, ocupan 
menos espacio. El escudo está formado por dos filas del carácter [8], 
pero usted sólo ha de teclear una fila (línea 6010). Recuerde que [8] 
significa que ha de pasar a la modalidad gráfica y después pulsar la te- 
cla 8, mientras que mantiene pulsada la tecla CAPS SHIFT. 


Estructura de subrutinas 


29 Establece el juego 
46 Bucle principal del juego 
175 Fin del juego 
2000 Imprime a los atacantes y dispara el láser 
2500 Comprueba si el jugador ha activado el misil 
3000 Calcula la resistencia del escudo 
3500 Mueve y dispara los misiles y comprueba el éxito o el fracaso 
4000 Gráficos y sonido de la explosión 
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S00Q Establece la órbita del ataque 
6000 Imprime el escudo 
8000 Gráficos definidos por el usuario 


Detalles de programación 


El primer punto interesante a observar, en este programa, es la 
forma en que en la subrutina 500 se calcula el camino del navío 
atacante y se almacena en un par de agrupamientos ('x” e “y”) para 
utilizarla repetidamente en las diversas órbitas que se utilizan durante 
el juego. El segundo punto de interés es que, si bien todos los gráficos 
utilizados son de baja resolución, el rayo láser que proviene de los 
navíos enemigos es un gráfico de alta resolución capaz de hacer desa- 
parecer todos los puntos negros que llegue a alcanzar. Así, aunque el 
escudo se imprime inicialmente mediante gráficos de baja resolución, 
después se va borrando según va pasando el rayo láser a través de él. 
En la subrutina 3000 se calcula la resistencia del escudo mediante el 
uso de la función POINT. POINT es 1 si el punto de coordenadas 


Cr» € 


x”, “y” está en color negro y es / si está en color blanco. 


Programa 


19 REM Super proyectil 


20 60 SUB 3000 
30 GU SUB SUU00 
49 GO SUB 5000 
45 GO SUB 3000 
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46 FOR az=1 TO 10 

47 LET dir=SGN (RND-.5) 

ás PRINT 1,19;' 'Rtacante ”";a 
43 PRINT AT 2,19,"Aciertos = 


[a] 
350 LET r=?*-INT (RND*+14) 
S5 1F_rc<cQ THEN LET s=3=f: 


Ñ LET ez29 
60 IF r>=0 THEN LET 5s=3: 
A LET e=29-1 
BS IF dir=-1 Ed LET t=5S: 
LET sz=8e: LET ext 
70 FOR i=3 TO e STEP dir 
su 60 SUB 2000 
55 60 SUB 2500 
356 IF f=1 THEN 60 SUB 3500 
39 NEXT i 
100 ERINT AT yli+r),xti);" " 
105 IF f=4 THÉN ¿E fin=1 
110 60 3UB 3000 
1158 IF fin=2 THEN LET a=11 
60 TU 170 . 
120 1F f=1 THEN LET f=0: PRINT 
AT Ay,mx; FLASH 1; [c1": 
BEEP 1,-1U 
125 PRINT AT my,Mxs 0 0 
130 LET Mx=15: LET mu=20 
140 PRINT AT my,mx;' [bJ' 
150 IF fin=0 THEN 60 TU 70 
160 LET fin=0 
170 NEXT a 
175 IF fin=2 THEN PRINT 
AT 10,10;"'Le pillaron!” 
130 INPUT "!acerto ; 
tacierto);"!"” "Jugamos"; 
“GUA. vez? "a 
190 IF a$="s'" THEN RUN 
200 S5TOP 
2000 PRINT AT Yiti+r)3,x(i1, pe 
2010 PRINT AT yti+ridiri, 
xli+diri;" tal" 
c020 IF RNCO<.S THEN RETURN 
2023 1F c<=20 AND mx-x(i+dir)=0 
THEN LET fin=2: 60 TO 4000 
<030 PLOT x(Ui+dirizS+4, 
170-4u (i+r+dir):S 
2035 LET d=10-INT (RND*z20) 
2040 DRA d,-SU0 
2045 EBEEP .01,20 
209 PLOT INUERSE 1x(i+dir)ix3+4 
Ml ¿170-yY li+r+dir)sS 
060 CRAL INUERSE 1;d,-30 
2070 TUR 


o mn 


mn 


RT 


MUICACACALA 


OL RISIAIOTA 
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1F fFz=1 EEN cero 


234 
IF 28.2 '8" THEN LET mx=mx+3: 
509 T 40 


URN 
PAINT de my, mx; " [bJ" 
RETURN 


=0 
LET 175- 16:5-1 
FOR i:1358 TO 17148+8 
LET_ c=c+POINT (i,/) 


3 
LET c=cr405100 
PRINT AT 0, O; Resisjengia” 
“ del escudo do p A 
RETURN 


PRINT AT my,mx;" " 
LET my=my-1 ) 

IF myu<2 nen LET f20: 
LET fin=1: GÓ TO 40209 
PRINT AT my,nx;" Cb]" 
IF mx<>x(is+dir) THEN 

RETURN 


IF My-Yii+redir)>a 
OR my-Yy(i+r+dir)<D THEN 
RETURN 


) :38-my +8 


BE - 
PRINT AT 
NATA da 
LET izes+dir 
RETURN 


rdir), 


DIM a DIM y1(59) 
LET y= 


2 
LET LLPtORO 
RETURN 
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DIO IO 


AAA 


AAAAAGOOON 
A+1A4AAAROS 


ZZZZZZZZ 
HAHAHAHA HH HA 
(0 00 0 (0100 (0 00 10 
9 ANO 
Fr+t++t+t+r+ 


10999 


9090000994 
A8971059A54 
AB AAA 
AdiAAAAAO 
AAAAAAADS 
90541900 A7AdA 
1351008 A1A 
050005589090 A 


Z22Z222Z22Z2Z 
HAHAHAHA 
nada o0da 0 
AANOFINDr 
FAA AA+ 


. -. . . . . . o. 
. . . . . . . . 


Q PÚUKE USR 
Y PORKE USR 
Y PORKE USR 
30 PORKE USR 
40 POKE USR 
S0 POKE USR 
159 PORKE USR 
70 POURE USR 


19 
Ld 
12 
13 
A 
1 
1 
1 


0) LO 09 (0 0 00.00 


194110994109 


18600090941 


ZZZZZZZZ 
HH A AA 
(06000000 
OQADNO +INDP- 
FEA Iir++ 


-. .. . +. . . o. 
. . >»... . . . 


OL OL CL E 
NUI INN 
3323333393 


4003410101) 03 43 
ACI 
2900000000 
aúaauaada 


2500005990090 
AANO+INDIO + 
CUCA CU YN O 
(049 10 00 (900110 


11474 
wi 
07) 
E 
a 
ox 


18 
Golf 


Hoyo numero 2 


E. 


hoyo esta a 


Este es un juego de gráficos en color, que combina tanto el lanza- 
miento como la colocación de la pelota, y que incluye el riesgo de caer 
en arenales. Usted juega en un recorrido de nueve hoyos, con dos 
etapas en cada hoyo: la calle y el césped (el green). Cuando ejecute 
(RUN) el programa observe, en la primera etapa, cómo el jugador de 
golf mueve el palo y cómo envía la pelota por el aire. 


Reglas del juego 


Al principio de cada hoyo se le indica la distancia al hoyo (señaliza- 
do con una bandera) y se le pide que elija el palo que va a utilizar. Si 
alguna vez ha jugado al golf, o ha visto en FV cómid'se Juega, sabrá 
que cuanto menor sea el número del palo, tanto más lejos enviará la 
pelota. Si se pasa del green (césped), se le dará otra oportunidad en 
ese hoyo, pero si se sale de la pantalla, perderá su oportunidad en ese 
hoyo, y pasará al siguiente. Si se acerca lo suficiente al hoyo, se encon- 
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trará en el green (césped). Un mensaje le indicará a qué distancia está del 
hoyo y le pedirá que seleccione el palo adecuado. Si se pasa del hoyo, 
se encontrará todavía a cierta distancia del mismo y tendrá que volver 
a colocar la pelota hasta que consiga que ésta se introduzca en él. Al 
final de cada hoyo, conocerá cuál fue su puntuación y, al final del 
juego, el programa le presentará en la pantalla cuál fue su puntuación 
en cada uno de los nueve hoyos. 


Indicaciones sobre el listado 


Además de tres caracteres gráficos definidos por el usuario, verá 
que en este programa (en la línea 810) se utiliza la mayúscula “O” entre 
comillas. Recuerde que las letras entre corchetes las tendrá que intro- 
ducir en modalidad gráfica, pero la O” la tendrá que introducir como 
una mayúscula normal y corriente. En este programa verá que se 
utilizan las tres funciones SIN, COS y PI. Cada una de ellas se 
introduce pulsando una sola tecla cuando esté en modalidad extendida. 
Están situadas en las teclas Q, W y M, respectivamente. 


Estructura de subrutinas 


SO Define el carácter gráfico de la bandera 
600 Define el carácter gráfico del jugador de golf 
700 Define el carácter gráfico del arenal 
79H) Inicializa las variables 
2000 Establece y juega cada hoyo 
4900 Informa de la puntuación en cada hoyo 
493) Fin del juego 
SO0H Rutina de efectividad del impacto 
S50N Traza el vuelo de la pelota 
65M Detecta si el lanzamiento ha sido demasiado largo 
7000 Dibuja el movimiento del palo 
8000 Rutina de colocación de la pelota 
8590 Rutina para la caída de la pelota en el arenal 


Detalles de programación 
Una característica interesante de este juego es que utiliza gráficos 


de alta resolución para conseguir que parezca que el jugador mueve el 
palo. Esto se lleva a cabo en la subrutina 7/4, que dibuja una línea, la 
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cual se mueve continuamente como si fuera el radio de un círculo. El 
vuelo de la pelota también se traza utilizando gráficas de alta resolu- 
ción. El camino que parece seguir la pelota (subrutina 5P0M) es una 
parábola distorsionada que lleva siempre a la pelota en dirección a la 
bandera. 


Mejoras posibles 


Puede que haya observado que la puntuación que se le presenta al 
final del juego no totaliza la puntuación, ni la compara con ningún par 
ideal del recorrido. Usted podría añadir ambas características. Tendrá 
que jugar varias veces antes de establecer el número que va a introducir 
como par de recorrido. 


Programa 
19 REM GoLf 

318 POKE USE B"+0,BIN 00901000 
pa E “+ , y 
520 POKE USR E RR EREr 
330 POKE USR "b"+2,BIN dei 10 
340 POKE USR "b"+3,BIN 09u01UDO 
3550 PUKE USR "b"+4,BIN 09u0010008 
560 POKE USR "b"+5,BIN 00001000 
570 POKE USR "b"+6,BIN 090010900 
5390 POKE USR "b"+7?,BIN 00111110 
500 REM jugador de goLrF 
s10 PORE USR "¡'"+0,6IN 008011000 
520 PQOKE USR "¿"+1,BIN veliliuo 
530 PORKE USR "¿"+2,BIN vivlluv10o 
640 POKE USR "¿'"+3,BIN 00111100 
650 POKE USR "¿'"+4,B61IN 00011000 
6609 POKE USR "y" "+S5,BIN 00190100 
670 PORKE USR "y"+6,BIN 00100100 
630 POKE USR ",¿'"+7?,BIN 01000019 
700 REM arenal 
710 POKE USR "a"+0,BIN 900110900 
720 POKE USR "“a"+21,BIN 90111119 
730 PORKE USR "a"+2,BIN 211111110 
740 PORKE USR "a"+3,B6IN 211111111 
750 POKE USR "a"+4,B1N 01111111 
760 PORKE USR "a"+5,BIN 00111110 
770 POKE USR "a"+6,BIN 009881110 
7380 PORKE USR "a"+7,BIN 98001100 
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790 DIM t (9) 
300 LET b=1 
310 LET xh=0: LET xc=0 
320 LET yh=0: LET htz=0 
LET yc=0 
19000 INK Q 
1910 PAPER 4 
2000 FOR h=1 TO 3 
20180 CLS 
2040 PRINT AT 9,10, 
"Hoyo numero ";,h 
20950 FOR Z31 TUS 
2060 LET xb=RND*S+10 
2070 LET yb=RND*S+10 
2050 PRINT AT yYb,xb; PAPER 32; 
INK 6," Lal" 
2090 NEXT z 
2100 REM seccion de lanzamiento 
2120 LET X=INT (RND*5) +1 
2130 LET y=INT (RND*+*S+12) 
2150 LET xt=INT (RND*15+15) 
2170 LET yt=INT (RND:10)+1 
2180 LET dzSóN (xt-x)« 
er a =X) *(x1- XD + Uyt> y)% 
Ú -y 
2190 PRINT AT yt,xt, PAPER 3; 
NK 8; Cb]l" 


I 
2200 Os E a PAPER 3; 


0; 

2300 PRINT AT 20,1; INK 0; 

"El proximo hoyo esta a "” 

INT d+10;'" metros o 

REM 3 OS 

NK sd palo ”; 

? (de ¿€ 
R c>8 THEN 


((9-Cc) /b) +1 


96 
00 


0-1 Ty 400 y po 


(Jr X Upa 


P-IT316--400 --- 


isado!”,; 
":; PAUSE 150: 


N_PRINT AT 20,1; 
ta en el verde!": 


Xx 

( 
h 
R 
=) 
n'" 


UT 


4300 PRINT AT 2,3; "Ha Ne 
"necesitado "¡tin 
" golpes” 
Y PAUSE 100 
VD NEXT h 


A66m 66 


AS] 
PER as 
JE PO 
666 66 


OL 


Cu 29 09 MH 0h Cu Ch 0 Ch CONCA CA 
Mr JRAOAGNPREIUE 
6600060 


CH 07 LO CO ON DA CA LU EN LA CU 


LU 


CON CNCA 


cua 


NUNCA 
TUTO 


En 


Golf 


CcL3 

PRINT AT 2,3;"EsSte "; . 
“recorrido” 

FRINT Ñ 

FOR iz1 TO 3 

PRINT TRBG 3,"hoyo ";i; 
IF t(i1)=-1 THEN 

PRINT " pelota perdida 
GO TO 4990 

PRINT " ";t(13;" golpes” 
NEXT 1 

INPUT Hacemos otro 
“recorrido? E: 

IF a$ildli="s FRÉN RUN 
PAPER 7: INK UU: CLS TOP 
REM rutina de impacto 
PLOT INK S; PAPER 3; 
INUERSE 1;xh+xc, yh+yut+yea 
LET Yt=z ICF (24 AND3.3)) 
LET ht=0 

LET xh=u 

REM trazado de la pelota 
LET qa 1(Y-yt)/ixt-x) Ñ 
LET vvzvteiSIN (45%P1,-1350)) 
LET A 

LET yc=z2l-y: is 
LET raid ta *P1,-150)) 
LET ht=zht+vw 

LET yh=39:*xh 

LET vv=zvwv-2.5 

LET xh=xh+vh 

LET yh=9%*xh 

IF xh+xc>255 THEN LET yh=8: 
LET yt=0: LET ycz0: 
LET_xh=0: LET xc=0: 

GO TO 56500 

IF yh+ht++Yyc>175 THEN 
LET yh=0: LET yt=0: 

LET yc=0: LET Xh=0: 

LET xc=0: 50 TO_565S09 

IF ht<:=0 THEN 60 TU S300 
PLOT PAPER 3; OVER 1; 
INR B8xh+xc, Yyht+tht+yc 
PRUSE 2 

PLOT PAPER 3; OVER 1, 
IÍNK 3 xh+xc Yyh+ht+uc 


60 TO 5650 
LET xht=INT (ixh+xc)/3) 


yht= 
INT ((17S-Yh-ht-4C) 0 
IF POINT (xh+xc, yhs+h 
THEN 50 TO 8500 
PLOT INK 8; PAPER s 
xhexc o 4h +h tego 
RETUR 


¿"1 1Ha perdido” 


US 
60 TÓ 4320 
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)+1 


( 

+ 

Y: LET ys=4ys:8+4 
Ú -48 STEP -S 

+ 

1 

O 


UUN--00 
QUuUOr-O0roO 
60006060 

r 

m 

—y 
MIND A 
14. aIN TA 


CXyjuv.-o 
Pod od AA — TD 


72d4s 

7250 1F 3=-30 THE 

?¿27?0 PLOT Ink 3, 
CRA INK 3, 
DUER 1;3x,3Yy 

7230 NEXT s 

7500 RETURN 


39000 REM colocacion 

suia P PAPER 4 

3030 LET a (RNDE5S) +1 
Y3=1o 

s0Su LET yn is" (RNDx15) +10 

3070 LET d=xh-x3 

3030 IF d<:0 THEN LET 1: K 


dj) 
51600 FRINT AT yh,xh; ; ! 
Es PRINT AT 939x92 INK 03" E41" 


311 

312 PRINT AT 13,1; , Ñ 
Eos AL ¿HOYO ES. 
d;,' METR 

3130 INPUT “2 QUE ES ELIJE 
"(de la 3) 

3133 IF cx1_0R c>3' THEN 
S50_TO S150. 

81409 LET tíh)=t( +1. 

314S LET hl=9-c+ nt (RND+F2) 

3150 LET d=3Y-h1 a 

38170 FOR Z=x9+1 TO xg+h1 


38180 PRINT AT Yh,z; ÍNK 0%." 
5200 PRINT AT yh,z;" 
XT z 


35220 PRINT AT Y49,x3;" 
3230 LET x9=x3+h1 Ñ 
3240 IF x3=xh THEN GO TO 3300 
3250 1F d<0 THEN CL3 : 

LET x9g=xh+d: 650 TO 30870 
32580 60 TO 8100 


3300 REM en el hoyo 
35310 60 TO 4990 


3500 REM en el arenal 

3600 PRINT AT 20,1, INK 8U;"En 
"el arenal E 
REM 12 espacios 

3610 PRUSE 188 

356320 LET b=2 

3630 RETURN 


19 
Tres en —Haya 


«Tres en raya» es uno de los juegos favoritos de toda la vida, pues es 
un juego sencillo de estrategia. El problema de jugarlo contra un 
computador es que se puede programar el computador de modo que el 
contrincante no pueda ganar nunca. Sin embargo, este programa hace 
de su Spectrum un contrincante que pueda ser vencido. El Spectrum 
realiza movimientos razonables, pero no es infalible, así que podrá 
llegar a vencer al computador. Realmente es una forma muy buena de 
aprender la estrategia del juego. 


Reglas del juego 


El juego tiene como escenario, como siempre, una cuadrícula de 
tres por tres. Usted juega con las “X” y mueve el primero. Para realizar 
su movimiento, tiene que indicar el cuadrado en el que quiere colocar 
su pieza. Teclee primero el número de fila y después el número de 
columna, pero sin dejar espacio entre ellos. Por ejemplo, teclee el 11 
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para colocar su pieza en la esquina superior izquierda. Si usted teclea 
un número en un formato erróneo, por ejemplo 1 1, o teclea un 
número que no corresponde a ninguna posición de la cuadrícula, por 
ejemplo el 41, el Spectrum no lo aceptará y le avisará con un pitido. Si 
teclea el número de una posición que ya esté ocupada, le presentará un 
mensaje indicándoselo. Cuando usted haya movido, el computador 
moverá su “O” y le volverá a tocar a usted. Al final, el Spectrum 
imprimirá “He ganado”, si él ha ganado, “Has ganado”, si ganó usted, 
o “Tablas”, si es que hay un empate. En caso de tablas, tendrá que con- 
tinuar rellenando el tablero para que el juego finalice. 


Indicaciones sobre el listado 


En este juego no hay caracteres gráficos. Para la cuadrícula se 
utilizan gráficos de alta resolución, y las mayúsculas “X” y “O” para las 
piezas del jugador y del Spectrum, respectivamente. 


Estructuras de subrutinas 


20 Bucle principal del juego 
4000 Evalúa los movimientos que ha de hacer el computador 
5000 Ensaya cada movimiento 
6000 Movimiento del jugador 
7000 Imprime en el tablero 
8000 Traza la estructura 
9000 Fin del juego 


Detalles de programación 


El método que utiliza el computador para jugar al «tres en raya», se 
basa en técnicas avanzadas de inteligencia artificial. Para decidir el 
siguiente movimiento, el computador sólo estudia lo que puede pasar 
en su próximo movimiento. En otras palabras, el programa no tiene en 
cuenta lo que puede pasar tras su próximo movimiento, lo cual permite 
que se equivoque, y le da a usted la posibilidad de ganar. 


Mejoras posibles 


Si desea mejorar la presentación de este programa, puede añadir un 
marco de color alrededor de la cuadrícula (si mira al programa del 
revoltigrama, encontrará un método de hacerlo). 
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Programa 


raya 


10 REM Tres en 


0 
u 
GO TO 9100 


0 
y 
0 
y 
Qu 


DOS IN ANO 


3 
SL THEN 


ADONDE DORA 


DOOOLLOLDOR 
INIA DAA AH 19199) 


2500099 NIgmn 
anno OD 


A AA 
++ ++ 
n. q. 
MM MT 
n> > 
EE EE 
tuu A A twWu A» A 
ES 33 + + Sy + + 
+ e re e - 
., ZZ dd A ZZ Y A 
y uu + + tuu + + 
II ” Y TI + mn 
E FRE. -= - FE == 
H£y 0 RX 0ÓS 0 nz xXx 
o Ad ZUuZzn AA ZUZO 
D 0% uri DO O Uotu- 
Po ran IdMIdA Pp ba IndidA 
5 xx Hhtbp+ JJ E+E+ 
FADOA -- 22 y ANDOA - - » Mn 
E RI o 
E ESO a 0 A: E (a 
TORA » pP DOM e 
a a a X E EXC O O 
HAHOtudOt 4 ute Ut tu a O O e a a da e ta dad 
DlL SUL HAZH JHJZL LA AZ A JH 
0099000858 SS NAOSNOASaS A 
AUOJFINDOT?-DN SS SAMUOFNDOT 0 
40000 A AAHAHARASA A 
id dy diras Y 


THEN LET fin=1: 


yy do SUB ¿408 


a 
(0 
10] 
«$ 
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p 
1] 
mM 
G 
a) 
O 
E pa] 
NN e 


xUt4+13+1 
Y (35+1)+1 


p 

10) 

hh 

6 

H 

a] 

y 

Xu 

ZOOM 


THEN 
LET XÚL+L] =x (t1+1) +1 
4470 IF t=0 THEN 
ET 7 do 


5008 LET Ax-2556: LET dr=1 
TO > 


5015 IF ati,j)=1 Sor bii,y)31 
THEN GÓ TO 5040 

018 LET dr=0: LET bii,j)=1 

GÚ sUEB 4008 

IE fin=l THEN RETURN 
mM THEN_ZLET m 


=€: 
LET e LET bej 
LET bíi,J)=0 
NEXT i 
NEXT y 
RETURN 


UA CA Coca MNUIDA 
050060 8066 
JDOMP CY Csfulo 
060601 66 


5009 INPUT OS 
LEPE. COL) 


O Ori 
8 O AFHONO--.6) 


PH: 
uE Órnpr <. 
. p 

Mm. 


Pacios 
¿"Posicion ", 


San 


, A 
UrrrroOoG66o0666G6a 
y r= 


Tres en Raya 


Ep 


3 

E 2 

AT Oy Ets 
+ 


Cod 


O 
D 
T: 
£ 
o 
OS A 


NINO M- E 
Lo] 
ul 


SS 
PR 
ul 


L 
RETURN 


PRINT "!!HE GANADO! !” 
00 


Mos otra vez ", 


20 
Máquina Tragaperras 


premiad 
premio 
premio 
premio 


e man 
Ex 
TT 
a + + + 
5 úr o 
1 y Y 


5) 


Con este programa podrá disfrutar de una máquina de juego como 
las de los bares, pero sin tener que perder ni una peseta. El Spectrum le 
da 100 pesetas para que empiece a jugar y le va restando 10 pesetas por 
cada jugada. Si le sale una combinación ganadora, el Spectrum le 
premiará con una cantidad que oscila entre las 5 y las 50 pesetas. Usted 
puede retirarse cuando vaya ganando o seguir jugando hasta arruinar- 
se. 

Aunque es un programa corto, incluye algunas técnicas gráficas 
verdaderamente interesantes; por ejemplo, podrá observar cómo se 
consigue que el tambor de la máquina gire suavemente. Además utiliza 
el sonido para indicar las combinaciones ganadoras. ¡Así que a ver si le 
toca el gordo! 


Reglas del juego 


En la pantalla aparecerá una combinación de tres de los cuatro 
símbolos posibles, rombos, cuadrados, círculos y triángulos. La combi- 
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nación para el premio gordo es la de tres rombos. Dos círculos y 
cualquier otro símbolo, premian con 25 pesetas; dos cuadrados y 
cualquier otro símbolo, premian con 10 pesetas; y un rombo y cual- 
quier otro símbolo, premian con $5 pesetas. Estas combinaciones son 
ganadoras siempre que aparezcan y no sólo en el orden que sugiere la 
pantalla. Para jugar pulse RUN y después responda “s” cada vez que 
desee otra jugada. Si no responde “s”, el computador le indicará el 
dinero que se va a llevar a casa. Si se le acaba el dinero, el juego habrá 
finalizado. 

Es importante no romper este juego mientras que está en ejecución 
(teclas CAPS SHIFT y SPACE), ya que provocaría alteraciones en la 
tabla de gráficos definidos por el usuario. Si por accidente interrumpe 
la ejecución, tendrá que desconectar y volver a conectar el Spectrum para 
restablecer la normalidad. 


Indicaciones sobre el listado 


Observe que en la línea 7) hay dos espacios en blanco tras la 
expresión “ptas”. Es importante que usted también lo ponga así, cuando 
introduzca el programa, pues en caso contrario no le indicará bien el 
dinero que ha ganado. Los dos espacios en blanco se utilizan para 
borrar los valores anteriores que fueran superiores al valor actual. Otro 
punto a recordar es el de entrar en modalidad gráfica, siempre que vea 
una letra encerrada entre corchetes (y no teclear los corchetes). Salga 
de la modalidad gráfica antes de teclear las “” de las sentencias 
PRINT. 


Estructura de subrutinas 


15 Bucle principal del juego 

70 Ofrece otra jugada o fin del juego 
1000 Gira el tambor 
2000 Establece las posiciones iniciales del tambor 
3000 Decide las combinaciones ganadoras 
4000 Comprueba si ha ganado 
5000 Sonido para el premio gordo 
7000 Establece las condiciones iniciales 
8000 Define los caracteres gráficos 
8500 Reproduce los caracteres gráficos 
9000 Indicación de que se ha arruinado 
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Detalles de programación 


El programa utiliza algunos trucos de programación y, por ello, 
aun siendo tan corto, puede producir este resultado. El giro del tambor 
se produce moviendo el punto inicial del área de memoria utilizada 
para definir la forma de los caracteres gráficos definidos por el usuario. 
El efecto de esto es que podemos presentar en pantalla una porción del 
carácter gráfico, y así es como se consigue esa impresión de que el 
tambor va girando suavemente. 


Mejoras posibles 
Si le gusta añadir gráficos a los programas, en éste tiene grandes 


posibilidades. No sólo para los símbolos utilizados, sino también para 
crear todo el entorno necesario para una máquina tragaperras. 


Programa 


19 REM Maquina de yuego 


GUIDÓ) 


coo 
ONCN CACA 
ttcc 
D00Cc 
00 
Gac 
6 
606 


CIMA A A 
0060766 
GN 
Ccc0m 
—] 
(n 
CC 
Mol] 
3 
Pra 
e P 
19] 


vu 
IF Mm<c=0 THEN GO TO 3000 


7Q e US AT 20,0,"Tiene "¿m; 


30 PRINT “"FOtra ¿ugada?" 
9Y LET a%=INREYS 


100 IF a%="" THEN GO TO 30 

110 IF a3%="3s" THEN 60 TO 40 

1280 PRINT AT, al, 0;'Se Lleva "; 
mi ptas 

130 5STUP 


1000 FOR izd TO d4+33 

1010 PRINT RAT 10, 12;CHR$ (2); 
“" ";CHRS q; "¡CHRS (f) 

1020 o udg,i 


XT 
1040 POKE Udg,d 
1050 RETURN 


00 LET p=144+INT (RNDx4) 
10 LET aq=144+INT_—(RND*4) 
20 LET r=144+INT (RND*4) 
30 RETURN 


-J MN 


Rhppranie 06 
JJ MN aer 


DOLO COD) CIAO LODO) Ovas 


PORO PO Po ha RO 
S60EAGOS POE EA 


JM (ur 6 
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PRINT AT 2,8; [a] la] (aJ"; 
" premio SÓ p 
PRINT ALT ECOI A PRAiONO 


25 ptas 
PRINT "?(d3 (d] premio”; 

10 ptas” 
PRINT "(a17? premio S ptas" 
RETURN 


1F p=144 AND q=1 

AND r=z=1l44 THEN LES man+S0: 
GO TO SUU 

1F (p=145) +(q=145 


ir=146)=2 THEN CET “nañ+2s: 
GEEP .,1,20 

IF (p=147)+(q=147 
iín=147)=2 THEN LET m=m+10 
BEEP .1,20: RETURN 

IF (p=144) +(q=li4d4) 
ir=l144)=2 THEN LET m=m+S 
EEEP .1,20: RETURN 

RETURI 


FOR _i=1 TO 20 
BEEP .01,20 
NEXT_i 

RETURN 


LET udg=23575 
LET daFPEEK udyg 


POKE USR "a"+0,BIN 000900090 
POKE USR “a"+1,BIN 09811080 
POKE USR "a"+2,BIN 090111100 
POKE USR "a"+3,BIN 01111110 
POKE USR “a"+d4,BIN 11111111 
POKE USR "a"+5,BIN 01111110 
POKE USA ':3:+8,BIN 99111108 
POKÉ USR "a"+?,BIN 00011800 
POKE USR "b"+0,BIN 90009900 
POKE USR “b"+1,BIN 098011000 
POKE USR "b"+2,BIN 0UI1L1100 
POKE USR "b"+3,BIN 01111119 
POKE USR "b"+4,BIN 11111111 
FOKE USR "b"+5,BIN UUVAVaYa 
POKE USR "b"+6,BIN 00009000 
POKE USR "b"+?,BIN 00Y0ABAV 
POKE USR "c"+0,BIN 00400000 
POKE USR "c"+1,BIN 0111100 
POKE USR “Cc"+2,BIN 01111110 
POKE USR “c"+3,BIN 01111110 
POKE USR "c"+4,BIN 01111110 
FOKE USE "<"+5,BIN QUIL11U0 
PORE USA :c0+8,EIN Voguagua 
POKE USE "¿"+7,BIN U00DOOU 
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¡DIPISIDBIDTRISIO 
3011 ira 
Go Gaca 


Co C6 0) 26 00 01 04 0) 


FORE USR 
PORKE USR 


CM 


:C 


0-07 
=D 


OCuacao 
FHOMXALNZAIO 
¿€ 
21 


e. E 
:D 


0 
Mar 
MA 

Z 
TW 


a0anana aa 


AT 10,5; 
¡3 arriinado" 


dede + + Ed 
JAEN 
CO CO 00 00 CO 00 COC) 
HHAHHAHHAHHHAHHAHH 
ZZZZZ22Z 


FLAS 


Solo lsfolofols) 
Grrrrrra 
OrPrRrrrro 


OPRERERRO 
OPPEREPPO 
Orrrrrro 
GGOGOGGGO 


GHrrErrRrROo 


¿ES 


21 
Charla con el Spectrum 


Cuentame tus problemas 


Yo tengo Un computador tonto 


4 


e a3asustaán los computadores”? 


nú 


- 
> 


Dime Un ejemplo 


ie cargaste Mi programa 


¿TU programa? 


¿No se ha encontrado alguna vez hablando con su Spectrum? Si así 
ha sido, puede que le disguste que él nunca le responda. Este programa 
le proporciona una solución y le da al Spectrum la oportunidad de 
iniciar una conversación con usted. Aunque no puede competir con el 
“Consultorio de la señorita Francis? de las revistas del corazón, su 
Spectrum está ansioso de conocer su problemas y tiene algunos comen- 
tarios que ofrecerle. 

Enfrentarse a la sintaxis del idioma inglés (o español) es un proble- 
ma muy complicado que este programa tiene que intentar resolver. Se 
han desarrollado programas de este tipo para mejorar nuestro conoci- 
miento de cómo funcionan los idiomas y de cómo las personas identifi- 
can las palabras, o componentes, principales de una conversación. 
Aunque estos arduos problemas caen dentro de la esfera de la inteligen- 
cia artificial, es posible tratar de entretenerse intentando mantener un 
diálogo con el Spectrum. 
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Reglas para utilizar este programa 


El computador inicia siempre la conversación del mismo modo, 
invitándole a que le cuente sus problemas. Usted puede darle la res- 
puesta que desee y, tras algunos momentos, el Spectrum le responderá. 
Cuando usted vuelva a responder, trate de decir algo más que “Sí” o 
“No”, pero tampoco dé respuestas muy largas. Si cada vez teclea 
alrededor de una línea completa, debe ser posible que mantenga una 
conversación razonable. 


Indicaciones sobre el listado 


Tanto cuando teclee este programa, como cuando lo utilice, tenga 
cuidado con su ortografía. Si al teclear el programa inicial, o al 
responder, introduce faltas de ortografía, el computador no reconocerá 
sus mensajes y, por tanto, no responderá razonablemente. Observe en 
el listado cómo se utiliza (TO” y “TO para la fragmentación de ca- 
denas. 


Estructura de subrutinas 


20 Bucle principal del juego 
1000 Mensaje inicial y establecimiento de la conversación 
2000 Introduce las frases del hombre 
3000 Divide las sentencias en palabras 
3600 Cambia tiempos y pronombres 
3800 Datos de tiempos y de pronombres 
5000 Encuentra las palabras clave en las frases 
6000 Datos de palabras clave 
7000 Respuestas a las palabras claves 
9800 Imprime las respuestas del computador 
9900 Pide respuestas sensatas 


Detalles de programación 


El programa trabaja tomando una frase, dividiéndola en las pala- 
bras que contiene, y respondiendo después de acuerdo con una lista de 
palabras clave que trata de encontrar en cada frase. Así, si usted 
responde con la palabra “quizás”, el computador siempre responderá 
con la frase: “¿Puedes tratar de ser más claro? Cuando el computador 
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no encuentre una respuesta concreta a una frase, elegirá una al azar 
entre varias que tiene almacenadas. 

Este es un programa difícil de escribir o de modificar. A pesar de su 
simplicidad aparente, acertará a responder razonablemente en un nú- 
mero sorprendente de casos. 


Mejoras posibles 


Si desea ampliar la lista de palabras clave que el computador 
reconoce, tendrá que fijarse en que en la subrutina 600N cada palabra 
clave va acompañada por el número de línea de la subrutina que se va 
a utilizar en la respuesta. También es importante fijarse en las priorida- 
des asignadas a cada palabra clave. Si en una frase aparecen dos 
palabras clave, será la primera de ellas la que influya en la respuesta. 


Programa 
10 REM Conversacion del 
Spectrum 


GU 5U6B 1000 
GO SUB 2000 
iS S5UB 2300 


(4 Y 0 UN Cd A 
666060 
6: 

1) 
£ 
0 
(y) 

1] 

La 
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1096 CL3 

1010 PRINT AT 1,1;"!'Hola! mi "; 
“nombre es Zx Spectrum" 

1030 FRINT 

1040 FRINT "Me gustaria que ",; 
"“hablaras conmigo” 

1450 PRINT "pero no tengo oidos” 
¿",. asi que “ 

1060 PRINT "tendras que teclear" 
i" Las frases” 

1070 PRINT "en mi teclado" 

1074 PRINT 

1075 PRINT "No utilices signos”, 
" de puntuacion" 

1030 PRINT 

1110 PRINT "Cuando termines de''; 
" escribir" 

1115 PRINT "pulsa la tecla ", 
"ENTER" 

1120 PRINT AT 15,0, BRIGHT 1, 
"Cuentame tus pr Foblenmas” 

1130 LET rs="" 

1140 LET mg$="" 

1150 LET dá="" _ 

1160 CIM n$13,32) 

1170 LET n5s(1)="Por Favor sigue" 

1130 LET n$12)="NO estoy seguro" 
+" de entender te 

1130 LET nm$i3)="Dime algo mas" 

1200 DIM ¡$1(3,32) 

1210 LET i¡i5(1)="Hablemos algo"+ 

Ñ " sobre tu " 

1220 e o e hablaste'"+ 
1 e U .. 

1230 LET ¡$(3)="Tiene esto "+ 
'algo que ver con tu 

1235 DIM ¿y$(2,32) 

1240 LET $1) ="Estas siendo" + 

pesimista" 
1250 LET ¡$i2)="Ya veo" 
1390 RETURN 


PS OOSO 
jols lo lola 
ina 
etilo] 


Gum 


NADO A 
NANA 
OGG 
CAU e 


nou 
CN 


01% 


665 


ajofoloío! 
+ ur 6 E 
Oo 
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LET as$="" 

LET b$=INKEY $ 

PORKE 236892,235 

TF b$="" THEN GO TO 2010 
IF INKEY$<>"" THEN 

GO TO 2025 

1F CODE (b$)=13 THEN 

GO TO 2200 

IF CODE (b$)=12 AND añsx> 
THEN LET añ5= 

a$!t TO LEN a$-1 

GO TO 2098 

IF- CODE b$<32 UR 

CODE b5:125 THEN 50 TO 2000 
LET a35=3%4+b5% 

PRINT AT 20,0;a5;' 

GO TO 010 

IF a$iLEN ag)l=" " THEN 
LET_afzag$( TO LEN a$-1) 

GO TO 2200 

IF af=5r% THEN PRINT 

AT 21,0;"!'!'Te estas '"; 
“FOpitiendor:o”. 

GO TO 2000 

LET r5=a5$ y 

IF a3g$="" AA: GO TU 2000 
LETLa8=" tag 

IF CUDE tas 13<97? THEN 
LET a5$i2)= 

CHR% ¡CODE (a5$12)) +32) 
PRINT AT 21,0; ” 

RETURN 

DIM (20,2) 

LET nm=1 

LET b=8 Ñ 

FOR i=1 TOLEN ag 

IF (a$tij=" " OR afii)a",'") 
AND b=0 THEN LET b=1 

IF (a$(i)<>"_" OR 
a$ti)<>",") AND_b<=1_THEN 
LÉT win,i)=i:; LET b=2 ; 
IF (a$til=" " OR a$ti)=",") 
AND b=2 THEN LET win,21=i-1 
: LET n=n+1: LET b=8Y 

NEXT 


1 
LET 4win,2)=LEN 23% 
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23600 FOR iíi=1 TO n 

3505 RESTORE 3300 

35610 READ b$4 e 

3620 IF ="5" THEN 60_TO 3699 

3630 IF b$x>a3$(wii,13) TO wii,2)3 
THEN 60 Tu 36830 

3640 RERD c5 

3650 LET af=a$1: TU CRISS 
A TO 

36S4 LET vi1,=)=w(li, 2) +LEN c$- 
LEN b$ 

3655 FOR j=i+1 TON 

3660 LET ut.j,2)=w (4,2) +LEN CcsS$- 
LEN b5 

3664 LET wij,1l)=w (4,1) +LEN có%- 
LEN b$ 

35865 NEX J 

3670 560 TO 3530 

306590 READ_b$ 

3635 60 TO 3610 

3630 NEXT i 

3700 RETURN 

3300 DATA "mi", "tu" ,"mis”" 

“tU A TE 

33819 DATA "mama" ,'"madre",'"papa" 
"padre" 

33820 DATA "te", "mex", "odia", 
“odia” "tu", "“yos" 

3830 DATA "tu", "ni%+"," tus”, 
"misx*'",'"m15MO0","“MiSMOX" 

3849 DATA "soy", "eres*”",'" estoy" 
"estas", '"mis5mo'" , "mismox”", 
"estas", "estoy" 

3350 DATA "tu" ,"yo+","eres”, 
“soy*r", "estas", "estoy", 
"conmigo", "contigos*", 
"contigo", '"conmigo*"” 

3350 CATA "eras", erar'", 
estabas", “estabas” 

3385 DATA "eres", "soy*",' estas” 
"“estoy+" 

33890 DATA "s","s" 

5000 RESTORE 6000 

5010 RERC b$,num 

S020 IF b5="s'" THEN 50 TO 5710 

5025 FOR 1=1 TO n 

S030 IF a$iwii,1) TO w(i,21)<>b5 
THEN GU TO 5700 

5040 LET tS$=a35(íw1i,2)+1 TU ) 

5050 FETURN 

5700 NEXT i 

5705 GO TO SUIO 

5710 LET nun=0 E 

5720 IF ms<>"" THEN GO TO 5300 

5730 A lll (RNDF3) +1) 

5740 FET ' 

5300 LEr asi 6 CINT (RNADE3) +1) +m$ 

5300 RETURN 
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€ 
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CATA "computador" ,70u0, 
"ordenador ",7000,'"'maquina", 
7000 

CATA "como" ,?100," igual", 
7100," "parecido", 7100 

DATA "si", 7200 

“cualquiera” ,?300 

DATA Puedes” 5200 'puedo", 
3200, "puede" ,3200," "seguro", 
5250, "seguramente”",3259 
CATA "como",3100,"pues”, 
$150 , 

DATA "siempre", 7500 
cad "todos",7300,"madie", 
DATA "era" ,7500,'estaba", 
7500 

CATA "Yyozx” , 35909 

CATA "no" ,7400 

CATA "tux",7600, “tus” Et 
DATA "eres:z', 3500," estás" 
5500,"tux” 5650 

CATA "hola" ,3300, 

"puede" 8350 

CATA "mix" ",8370,'"mis*r”",8370 
¿ no" 38420 

DATA “si” ,29250,"que",3450 
DATA "quizas" ,3350, 
“siento” ,2340u 

DATA "que" ,3450 

DATA "s'",Q 


LET p5="?T€e asustan Los" + 
" computadores? 

RETURN 

LET p$="7Por que?" 

RETURN 

LET p$="?Por que hablas "+ 
"de ipotesis” 


RETURN 

LET EA REA EN AS “ebr 0?" 
RETUR N 

IF i¡=n THEN 60 TO 7450 

LET i¡izai+1 


LF a$iw(i1,1) TO wíi, 2j)= 
'uno" THEN LET bé=b$+" uno" 


: GO TO 7300 
LET A JS UINT (RND+2) +1) 
RETUR 

LE en THEN GU TO 9940 
LET isis 


IF agiwii,l) TO W(1,2))<> 
"ya s$0 


U 
TPp5= due pasaria si "+ 
veras "+a$iuw(i1,2)+1 TO )+ 


RETURN 
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7600 LET izi+1 
7605 IF in THEN GO TO 7450 
7610 IF a$íw(ii,1) TO w(i,2))= 
“madre” THEN 60 TO 7700 
ro20 IF a$twti,di TO wí(1,2))]= 
“padre” THEN 60 TO 700 
7630 GE Pa E TO w(1,2))= 
Ñ nana" "THEN_GÓ TÓ 7700 
75640 120 as Wii,1) TO w(1,2))= 
ES "hermano" THEN_G0 TO 7700 
7650 1F afiwii,.,d) TO uti,2))= 
2 "mujer" THEN 80 TO ??00 
7650 IF 35 iw(1,11 TO 4wii,2))= 
"marido" THEN_GO TO 7700 
ZOO IF a3$5$tw(i,1) TO uwii,2))= 
"hijos" THEN 60 TO 7700 
7650 IF LEN t$>10 THEN 
LET m5=15$ 
7690 LET p$="?tu "+*tg+">?" 
7695 RETURN 
7700 LET p$="Cuentame algo mas''+ 
* de tu familia" 
2308 REF Pdarnime un ejenp 
? ="Dime Un ejemplo" 
7310 RETURN 
7909 LET izi+1 
7905 IF ion THEN LET p$="?Que'"'+ 
“* dices que 5s0y7": RETURN 
7920 LET p$="?Por que te "+ 
'interesa 51 30 + 
a$ í(w(i1,1) TO J)+" o no? 
7930 RETURN 
3000 LET p%="7Creecs Ve eres + 
a$iwti,2) TO )+7" 
S03u RETURN 
3100 LET ps="*?Por que lo "+ 
Preguntas?" 
35110 R N 
3150 LET p$a"Dime otras razones" 
3160 HEN 
3200 LE i+1l 
s205 IF ¿3n PHEN LET p$="?Que?'": 
RETURN 
3210 IF e SEO TO Wwíi,2))]= 
'Yos" pes LET pS="79Tu "+ 
“crees que yo puedo "+ 
a$5íiwti, 3) +1 O 
RETURN 
3220 IF a5iwti,1) TO wi E 
“"tux" THEN LET páz"?Tu "+ 
"crees que yo puedo "+ 
Tia TO 3)+"9": 
RETURN 
35230 60 TO 5720 
3250 LET p%="Pareces muy seguro 
3250 RETURN 
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3300 LET Pp$="Encantado de verte" 
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wood (00 


IF i=1 THEN 60 TO 286560 

IF a35$iwti-1,13 TO Wli-1,2)) 

="eresi" THÉN 60 TO 35000 

LET isi+1 

IF ion THEN 60 TO 9900 

IF a$twti,1) TO vw(1,82) 
TO 38s 
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LET p$="!Por favor habla "+ 
"sensatamente!”" 
RETURN 
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